A-RD-76-16 
DOCUMENTATION 


^J^f  Transportation 


^^'^^ilW7 


I  b  ^ 

^c=borir«^MIC    ANALYSIS    OF   RC3AD\A/AY 
OCCUPANCY  FOR    FREE\A/AY  PAVEMENT 
MAINTENANCE  AND  REKIABILITATION 


This  document  is  available  to  the 
public  through  the  National  Technical 
Information  Service,  Springfield, 
Virginia -22161 


y.3 


RT  STANDARD  TITLE  PAGE 


4.    Title  and  Subtitle 

ECONOMIC  ANALYSIS  OF  ROADWAY  OCCUPANCY  F0R|FR| 
PAVEMENT  MAINTENANCE  AND  REHABILITATION 
Vol.  3  Program  Documentation 


7.     Author's) 


^''^^\ 


Butlen, 


a-wi-Sv   W.   Hopkins 


9.     Performing  Organization  Nome  and  Address 

Byrd,  Tall  amy,  MacDonald  and  Lewis 

Division  of  Wilbur  Smith  and  Associates 
2921  Telestar  Court 

Falls  Church,  Virginia  22042 


12.     Sponsoring  Agency  Nome  and  Addres* 

Office  of  Research  and  Development 
Federal  Highway  Administration 
U.S.  Department  of  Transportation 
Washington,  D.  C.   20590 


8.     Performing  Orgonizotion  Report  No. 


10.     Work   Unit  No. 

FCP-35E1012 


1 1 .     Contract  or  Grant  No. 

DOT-FH-11-8132 


13.     Type  of  Report  ond  Period  Covered 


Program  Documentation 


14.    Sponsori*ng  Age'ney  Code 

SO  63 


15.    Supplementary  Notes 


FHWA  Contract  Manager,  J.  V.  Boos  (HRS-41) 


16.  Abstract^  computer  program  developed  to  perform  an  Economic  Analysis  of  Roadway 
Occupancy  for  Maintenance  and  Rehabilitation  "EAROMAR"  is  documented.  Input 
includes  pavement  design,  thickness,  lanes,  project  length,  initial  and  final  year 
traffic.  The  program  generates  hourly  traffic  volume  by  trip  purpose,  direction  and 
year;  vehicle  operational  cost  as  a  function  of  vehicle  weight,  speed  and  project 
design  alignment;  value  of  time  by  trip  purpose,  income  level  and  tima  loss,  annual 
workload  by  activities;  activity  production  rates  and  labor,  equipment  and  material 
requirements.  The  information  used  in  a  roadway  maintenance  occupancy  simulation 
subject  to  constraints  on  work  crews  and  roadway  occupancy.  The  influence  of  road- 
way occupancy  on  motorist  is  executed  hourly  for  each  activity  and  lane  closure. 
The  resulting  operational,  time,  accident  and  poljlution  impacts  are  combined  for 
all  feasible  closures  including  traffic  detours  and  crossovers  and  output  in  a 
series  of  optional  reports. 

The  volume  is  the  third  of  a  three  volume  report.  The  others  in  the  series  are: 


Vol.  No. 

1 
2 


FHWA  No. 

76-14 
76-15 


Short  Title 

Final  Report 
User  Manual 


17.  Key  Words p^yg^g^^  Design,  Highway 
Maintenance,  Economics,  Traffic  Vehicle 
Operation  Costs,  Accident  Cost,  Value  of 
Time,  Pollution,  Maintenance  Models, 
Simulations 


19.     Security  Classif.  (of  this  report) 

Unclassified 


18.  Distribution  Statement 


No  restrictions.  This  document  is  avail 
able  to  the  public  through  the  National 
Technical  Information  Service, 
Springfield,  Virginia  22161 


20,    Security  Classif.  (of  this  page) 

Unclassified 


21.  No.  of  Pages        22.    Price 
322 


Form  DOT  F  1700.7  (8-69) 


ACKNOWLEDGMENT 

The  research  study  covered  by  this  report  was  conducted  by  the 
Byrd,  Tallaniy,  MacDonald  and  Lewis  Division  of  Wilbur  Smith  and 
Associates.  The  principal  investigator  was  Bertell  C.  Butler,  Jr. 
Others  making  contributions  to  the  study  included  Stephen  W.  Hopkins 
who  assisted  in  all  phases  of  the  study  and  contributed  substantially 
in  the  development  of  the  computer  program;  L.  G.  Byrd,  who  provided 
guidance  in  the  development  of  the  maintenance  module;  Robley  Winfrey, 
who  critiqued  the  approach  to  developing  vehicle  operation  cost, 
and  made  available  information  on  vehicle  operating  characteristics; 
Ross  Maxwell,  who  directed  field  data  gathering  efforts  in  California, 
and  other  firm  members  who  gave  suggestions  and  provided  assistance 
during  the  conduct  of  the  research. 

The  author  wishes  to  thank  the  state  highway  staff  members  in 
California,  Maryland,  and  Virginia  for  their  cooperation  in  providing 
notice  of  maintenance  occupancy  conditions  and  data  on  traffic  related 
to  roadway  occupancy  locations. 

Special  thanks  are  extended  to  Mr.  James  Boos  of  the  Federal 
Highway  Administration  who,  as  project  manager,  provided  invaluable 
assistance  in  contacts  with  Federal  and  State  highway  staff  members. 

Other  Federal  Highway  Administration  personnel  who  made  contri- 
butions to  the  study  include  Tom  Pasko  and  Dick  McComb,  Office  of 
Research  and  Development;  Ed  Evans,  Richard  Murphy  and  James  Robertshaw, 
Computer  Services  Division,  and  Perry  Kent,  Program  Management  Division. 


11 


PREFACE 


Report  Contents 

"An  Economic  Analysis  of  Roadway  Occupancy  for  Freeway  Pavement 
Maintenance  and  Rehabilitation"  is  contained  in  three  volumes.  This 
is  the  result  of  work  accomplished  under  a  Federally  Coordinated  Research 
Program,  Project  5E,  Premium  Pavements  for  "Zero  Maintenance,"  during 
the  period  of  July  1973  to  May  1975. 

Volume  I,  Final  Report,  provides  a  complete  description  of  the 
scope,  approach,  and  results  of  evaluating  the  economic  impact  of 
roadway  maintenance  crew  occupancy,  taking  into  account  motor  vehicle 
operating  cost,  value  of  time,  accidents,  and  pollution  under  various 
freeway  traffic  conditions.  The  assessments  and  conclusions  are  based 
upon  previous  state-of-the-art  and  study  of  field  data. 

Volume  II,  Users  Manual,  presents  the  results  of  the  study  as  a 
users  manual  with  a  systems  approach  to  pavement  design,  which  evaluates 
environmental,  operational  performance  and  serviceability  factors  for 
alternative  pavements  under  a  variety  of  rehabilitation  and  maintenance 
strategies.  The  presentation  is  in  two  parts:  The  first  is  the 
Algebraic  Users  Manual,  for  hand  computations.  The  second  is  the  User 
Manual  for  Program  EAROMAR  (Economic  Analysis  for  Roadway  Occupancy  for 
Maintenance  and  Rehabilitation)  which  gives  a  detailed  description 
of  the  format  and  coding  for  all  required  input  and  a  general  description 
of  the  optional  input  to  modify  the  impacts  for  local  needs. 

Volume  III,  Program  Documentation,  contains  a  complete  description 
of  the  internal  variable  and  computations  for  the  computer  program 
EAROMAR,  and  thus  is  the  basis  for  any  future  program  modifications. 
The  format  and  coding  for  all  inputs  are  described  in  detail.  One 
change  to  the  program  has  been  made  by  FHWA,  which  is  documented  in 
this  Volume.  This  modification  incorporates  an  inflation  rate  of  10 
percent  in  present  worth  computations. 

Report  Applications 

High  traffic  volumes,  heavy  loads,  and  weathering  on  existing 
pavement  designs  cause  accelerated  damage  and  early  deterioration. 
Maintenance  operations  required  to  keep  these  highway  facilities  service- 
able create  a  conflict  with  the  motorist  causing  delays,  and  increasing 
pollution  and  accident  opportunities.  These  repairs  are:  (1)  costly 
due  to  the  extensive  traffic  control  required,  (2)  limited  to  between 
peak  hour  periods  to  avoid  exceeding  the  traffic  volume  capacity,  and 
(3)  difficult  to  perform  and  often  temporary  due  to  problems  in  mobilizing 
the  work  crew.  Thus  the  elimination  of  these  impacts  results  in  reduced 
highway  maintenance  expenditures  and  higher  levels  of  safety,  economy 
and  convenience  to  the  user. 


m 


The  FHWA  has  determined  that  one  solution  to  the  difficulties 
associated  with  highway  maintenance  operations  is  to  produce  a  "pre- 
mium pavement"  which  reduces  maintenance  requirements.  The  savings 
derived  from  direct  maintenance  expenditures  and  motorist  costs  over 
the  life  of  the  pavement  could  be  invested  in  constructing  a  "premium 
pavement"  as  compared  to  existing  designs. 
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FOREWARD 


The  only  change  to  the  original  EAROMAR  program  to  date  (as  it 
appears  in  Appendixes  A  and  B)  is  a  FHWA  Modification  to  incorporate 
an  inflation  rate  in  present  worth  computations. 


1.  A  new  internal  variable  RATEC  has  been  added.  This  variable 
is  the  inflation  rate  in  percent  used  in  present  worth 
computation.  This  variable  should  appear  in  the  NAME  DIC- 
TIONARY on  page  27,  and  in  Table  4  on  page  36. 


2.  This  variable  is  used  in  a  new  internal  computation  to  convert 
minimum  costs  for  any  year  to  present  worth.  This  new  comp- 
utation is  made  by  multiplying  the  discounted  costs  by  the  sum 
of  one  plus  the  inflation  rate  to  the  power  year.  The  computa- 
tion of  discounted  costs  on  page  112  would  then  be  changed  as 
follows: 


(add)    C    =   Annual  inflation  rate 

(delete)  DC    =   MC/(l+I)y 

(add)    DC    =   (MC)(l+C)y/(l+I)y 


TABLE  OF  CONTENTS 

Page 

ACKNOWLEDGMENT  ii 

PREFACE  iii 

FORWARD  V 

INTRODUCTION  1 

DEFINITION  OF  TERMS  7 

PROGRAM  IMPLEMENTATION  13 

NAME  DICTIONARY  14 

PROGRAM  NARRATIVES  AND  GENERAL  FLOW  CHARTS 

EAROMAR  -  MAIN  38 

Subroutine  INITIAL  40 

Routine  -  OVER  44 

Routine  -  RANDOM  69 

Routine  -  SPEED  73 

Routine  -  INOCC  76 

Routine  -  RECON  78 

Subroutine  OPPARA  83 

Routine  -  VTIME  85 

Routine  -  OPCOST  89 

Subroutine  RPRINT  97 

Subroutine  YEAR  100 

Routine  -  AWORKL  104 

Routine  -  PRINT  111 

Subroutine  MAINT  116 

Routine  -  AVAIL  128 


VI 


TABLE  OF  CONTENTS  (Cont. ) 

Page 

Subroutine  MOTOR  130 

Routine  -  VOCOST  135 

Routine  -  TIME  142 

Routine  -  ACCIDT  148 

Routine  -  POLUTE  154 

REQUIRED  AND  OPTIONAL  INPUT 

Schematic  of  Input  Deck  157 

Card  No.  1  -  TRAFFIC  160 

Card  No.  2  -  PAVEMENT  161 

Card  No.  3  -  PACKET  OPTION  162 

Card  No.  4  -  TRAFFIC  DISTRIBUTION  163 

Card  No.  5  -  TRIP  PURPOSE  DISTRIBUTION  164 

Card  No.  6  -  OCCUPANCY  CONSTRAINTS  165 

Card  No.  7  -  OVERRIDE  ARRAY  165 

Card  No.  8  -  ALIGNMENT  DESCRIPTION  166 

Card  No.  9  -  VEHICLE  DESCRIPTION  166 

Card  No. 10  -  SIMULATION  DESCRIPTION  167 

Card  No. 11  -  OPERATION  UNIT  COSTS  167 

Card  No. 12  -  PRINT  SWITCH  168 

Card  No. 13  -  LANE  WIDTH  168 

Card  No. 14  -  INCOME  168 

Card  No. 15  -  OCCUPANCY  MOVES  169 

Card  No. 16  -  TERMINAL  PSI  169 

Card  No. 17  -  DETOUR  PARAMETERS  169 

Card  No. 18  -  DESIGN  LIFE  170 

vii 


TABLE  OF  CONTENTS  (Cont. ) 


Card  No.  19 

Card  No.  20 

Card  No.  21 

Card  No.  22 

Card  No.  23 

Card  No.  24 

Card  No.  25 


ACTIVITY  STANDARD 

CAPACITIES 

FREEWAY  DESIGN  SPEED 

AVERAGE  ACCIDENT  COST 

VEHICLE  OCCUPANCY 

COMMERCIAL  TIME  VALUE 

SPEED  LIMITS 


Paae 

170 

171 

171 

172 

172 

172 

173 


Number 


2 
3 
4 
5 
6 
7 
8 
9 
10 


LIST  OF  FIGURES 

General  flow  of  computer  program  EAROMAR  -  An 
Economic  Analysis  of  Roadway  Occupancy  for 
Maintenance  and  Rehabilitation 

Layover  structure  tree  for  program  EAROMAR 

Distribution  of  work  trips  A.M.  peak  direction 

Work  trips  P.M.  Peak 

Social-recreational  trips 

Personal  business  trips 

Vacation  trips 

A.M.  School  trips 

P.M.  School  trips 

Commercial  trips 


2 
12 
45 
46 
47 
48 
49 

50 

I 

51 
52 


vm 


TABLE  OF  CONTENTS  (Cont.) 


LIST  OF  TABLES 


Number 


1-5 

6 

7 

8 

9 

10 

11 

12 

Scalars  and  Arrays  in  Common  -  Subroutines 
and  Routines 

Program  default  matric  of  trip  purpose 
distribution 


Page 

33. 
54 


The  program  default  values  assigned  to  override    56 
variable  OVER(N,IA) 

Program  default  values  for  vehicle  classification  59 
variable  WEIGHT  (N,I) 

Program  default  matrix  used  in  the  initialization  61 
of  the  simulation  matrix 

Program  default  values  for  vehicle  consumption    62 
parameters 

Program  default  values  used  in  variable  DET0UR(7)  65 

Constants  of  influence  zone  annual  accidents     149 
equations  taken  from  NCHRP  Report  47 


APPENDIX  A     Source  listing  of  Program  EAROMAR         174 
APPENDIX  B     Detailed  Flow  Charting  for  Program  EAROMAR  246 


IX 


—    a  cr    C)  * 


«fl         =  z 

.s      s       -■ 


"         5 
u         ° 


j=   j:    *-  -D 


E  E  !2  2 

-  ^  QJ  QJ 

-  g  s  s 

E  S  e  E 


.5  >■  E 

0)  V  ot 

5  S  5   S 

:?  3  3    <£ 

cr  cj  cr   u 


< 

ID 

s 

UJ 

•— 

cs 

<* 

cc 

O 

t- 

o 

<NJ 

< 

trt 

"^E 

CO 

S 

E 

c 

i/) 

(1> 

o 

1 

fe 

o 

I    °    c 


i     I 


—    a  a    o> 


t-   o  ifl  »~ 


oc 

£ 

(M 

=5 

I'j 

t— 

< 

m 

re 

ec 

UJ 

OL 

s 

'^^ 


OJ 

. 

00 

(O  . 

- 

- 

to 

o 

N    - 

~ 

-§ 

O    _ 

" 

_  o 

- 

O    . 

o 

_  o 

1 

o  X  o  o 

I  I 


e/3 

az 

o 

O 

< 
u. 

Z 

o 

(/) 

oc 


o 
u 


u 

cc 


III!  nil  nil  III! 


nil  nil  II 


iMIi.i   i|i|>|>    •iiuri  M'lM'  M'l'l'   'I'I'I' 


TIT 


Tl'l 


I'lT 


riT 


TIT 


1  inches 


F 

w 

(n 

0) 

ni 

n> 

i 

c 

E 

E 

0) 

0) 

(D 

V 

cr    CT    (T    C7    <u 


in    O    03    ID    ". 

lO  o  o  c»g  o         S 

< 

E 


E  e  E  — 


^ 

;, 

w 

(i> 

H 

r: 

~ 

'r: 

i 

S 

£ 

^ 

o 

pj   ^    ffj    00    O    1**^ 
O  O    O    CO    o    o 


3     3      3      3     1: 
cr    Cr    CT    CT    O 


i    -O      «     2     ^    — 

^  i  I  =  -  " 


o.  o-  O)   u    u 


2  iS: 


X 


INTRODUCTION 

Pavements  are  subject  to  accelerated  deterioration  when  exposed 
to  heavy  traffic.  The  deterioration  creates  a  need  for  pavement 
maintenance  and  therefore  freeway  occupancy  by  maintenance  forces. 
The  maintenance  is  costly,  difficult  to  perform  and  the  occupancy 
creates  conflicts  with  the  motorist  which  impact  on  motorist  opera- 
ting cost,  result  In  motorist  delays,  create  increased  opportuni- 
ties for  accidents  and  increased  levels  of  pollution.  The  elimina- 
tion of  these  costs  and  impacts  can  result  in  reduced  highway  main- 
tenance expenditures  and  higher  levels  of  safety,  econoiTiy  and  con- 
venience to  the  highway  user. 

This  program  was  developed  to  analyze  the  magnitude  of  the  cost 
associated  with  roadway  occupancy. 

General  Description  of  Computer  Program 

The  computer  program  developed  for  the  Economic  Analysis  of 
Roadway  Occupancy  for  Maintenance  and  Rehabilitation  will  be  referred 

to  as  "EAROMAR".  The  program  was  designed  to  be: 

1.  Easily  adaptable  to  the  needs  of  the  50  State  highway  de- 
partment and  other  highway  agencies. 

2.  Readily  updatable.for  changing  unit  cost. 

3.  A  support  program  to  existing  pavement  systems  analysis. 

4.  Executable  independent  of  the  pavement  systems  analysis 
it  was  designed  to  support. 

5.  Easy  to  use. 

The  program's  general   structure  is  shown  in  Figure  i.       In  the 

broadest  sense,  the  program  does  three  things.     First,  it  establishes 
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a  data  matrix  of  given  and  assumed  information.  Second,  it  determines 
the  specific  hours  the  roadway  will  be  occupied  by  work  crews  annually 
together  with  the  maintenance  and  rehabilitation  cost  associated  with 
that  occupancy.  Finally,  the  impact  to  the  motorist  caused  by  the 
roadway  occupancy  is  established  in  terms  of  operation  costs,  time  costs, 
accident  cost  and  pollution  effects. 

Information  Matrices 

The  data  used  in  the  program  is  created  in  the  two  subroutines 
INITAL  and  OPPARA.  These  two  subroutines  each  contain  a  number  of 
routines  which  were  originally  designed  as  subroutines  but  combined 
to  effect  a  balance  between  the  core  requirement  and  run  time  necessary 
to  execute  the  program.  The  program  will  run  on  any  system  configura- 
tion supporting  92K  of  available  program  storage. 

The  input  data  required  to  execute  the  program  is  minimal  and 
consists  of  pavement  design  and  traffic  volume  data.  This  insures 
that  the  program  can  be  easily  used  by  State  agencies. 

The  majority  of  the  data  matrices  are  based  on  defaults,  which 
are  built  into  the  program.  However,  each  default  can  be  optionally 
overridden  by  the  program  user.  This  is  accomplished  through  the  use 
of  routine  OVER  which  resides  in  subroutine  INITAL.  The  other  routines 
in  INITAL  are  RECON,  SPEED,  RANDOM  and  INOCC.  These  establish  an  hourly 
volume  matrix  by  trip  purpose;  a  speed  matrix  by  closure  category; 
1000  random  full  size  and  partial  size  patches  and  work  site  locations; 
and  an  available  occupancy  array,  respectively. 


The  subroutine  OPPARA  consists  of  two  routines.  The  first  is 
VTIME  which  is  an  adaptation  of  the  program  developed  by  SRI  in  the 
development  of  their  value  of  time  tables  (1).     This  routine 
creates  a  matrix  of  the  hourly  values  of  time  by  trip  purpose  for 
up  to  40  increments  of  time  loss. 

The  second  routine,  called  OPCOST,  creates  a  matrix  of  operation 
costs  at  65  speeds  for  passenger  cars  and  commercial  vehicles. 

Maintenance  Simulation 

A  series  of  workload  models,  applicable  to  different  pavement 
types,  are  used  to  generate  maintenance  activity  workloads  annually 
in  the  subroutine  YEAR.  Each  activity  is  treated  independently  in 
the  subroutine  MAINT.  Based  on  constraints  applicable  to  each  acti- 
vity, the  occupancy  of  the  roadway  by  work  crews  is  simulated.  The 
occupancy  requirement  time  is  accumulated  by  the  hour  of  the  day  and 
lane  closure.  Crew  hours  are  accumulated  and  costed  to  produce  acti- 
vity costs.  At  intervals,  which  can  be  indicated  through  interfacing 
with  a  pavement  systems  program  or  controlled  by  the  user,  resurfacing 
is  executed  and  the  associated  occupancy  requirements  and  costs  accumu- 
lated. 

Subroutines  YEAR  and  MAINT  of  the  program  EAROMAR  were  designed 
to  permit  maximum  adaptability  at  the  State  level.  The  individual 
workload  models  can  be  factored,  overridden  or  deleted  completely. 
Each  of  the  constraints  built  into  the  simulation  process  can  be  over- 
ridden by  the  user.  The  activity  production  and  unit  cost  data  can  be 


Thomas,  Thomas  C,  Thompson,  Gordon  I.,  "The  Value  of  Time  Saved  by 
Trip  Purpose,"  Stanford  Research  Institute,  Project  MSU-7362,  October 
1970 
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based  on  local  practices.  Activities,  not  accounted  for  in  the 
existing  program,  can  be  added  by  the  user. 

Motorist  Impact 

Through  the  maintenance  simulation  in  subroutine  MAINT  the  period 
of  roadway  occupancy  for  each  activity  is  established  for  each  feasible 
lane  closure.  In  MOTOR,  the  impact  on  the  motorist  is  evaluated  in 
terms  of  reduced  speeds,  delays  and  volume  changes  hourly.  These  para- 
meters are  used  in  the  routines  VOCOST,  TIME,  ACCIDT  and  POLUTE  to 
develop  motorist  impacts. 

In  VOCOST,  the  operation  costs  associated  with  a  closure  category 
are  determined  hourly.  These  are  based  on  operation  speed,  delays  and 
speed  changes.  The  normal  operation  costs  for  the  hour  are  computed 
and  subtracted.  The  net  difference  is  accumulated  for  all  hours  and 
days  of  roadway  occupancy  for  each  activity  and  closure  category. 

In  TIME,  the  speed  and  delay  information  is  used  to  develop  a 
loss  time  per  vehicle  then  held  as  loss  manhours  and  dollars  by  acti- 
vity and  closure  category. 

ACCIDT  is  used  to  predict  potential  increases  in  accident  numbers 
and  costs.  Finally,  the  added  days  of  pollution  are  determined  in 
the  routine  POLUTE. 

In  support  of  a  pavement  systems  program  "EAROMAR"  is  designed  to 
select  the  closure  category  which  produces  the  least  overall  costs  for 
each  activity,  these  are  totaled  for  all  activities  and  discounted  for 
present  worth  in  each  analysis  year. 


The  program  also  is  executable  independent  of  a  pavement  systems 
analysis.  Print  options  available  to  the  user  permit  output  on  each 
activity  by  lane  closure  category  for  each  of  the  7  following  cate- 
gories by  roadway  direction  annually: 

1.  Activity  costs 

2.  Operation  cost 

3.  Accidents 

4.  Accident  costs 

5.  Manhours  loss 

6.  Time  cost 

7.  Added  days  of  pollution 


DEFINITION  OF  TERMS 

Activity  -  A  specific  work  function  which  is  per- 

formed on  the  pavement,  i.e.,  pavement 
patching,  resurfacing,  joint  sealing,  etc. 

Activity  Workload       -  The  quantifiable  units  of  work  generated 

for  a  work  activity,  e.g.,  square  yards 
of  patching,  linear  feet  of  crack  sealing, 
lane  miles  of  resurfacing,  etc. 

Available  Occupancy  Hours  -  The  hours  of  a  day  when  work  crews  are 

permitted  to  occupy  a  roadway. 

Closure  Category        -  A  variety  of  lane  closure  sequences  can 

be  used  in  the  delineation  of  work  zones 
for  activity  work  crews.  Each  closure 
sequence  is  defined  as  a  closure  category. 
As  an  example,  on  an  eight-lane  freeway, 
the  following  six  sequences  of  closure 
categories  are  feasible: 

1.  Close  one  lane  at  a  time 

2.  Close  two  lanes  at  a  time 

3.  Close  three,  then  one  lane 

4.  Close  all  lanes  and  use  shoulder 

5.  Close  all  lanes  and  use  detour 

6.  Close  all  lanes  and  cross  traffic 
over  to  opposite  lanes 
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Directional  Lanes       -  The  number  of  lanea  going  in  a  single 

direction  for  a  given  freeway,  i.e., 
on  an  eigh.t-lane  freeway,  there  are  four 
lanes  in  one  direction. 

Influence  Zone  -  The  distance  over  which  vehicles  are 

operated  at  an  average  reduced  speed  due 
to  lane  closures  on  the  freeway. 

Lane  Closure  -  The  number  of  directional  lanes  closed 

for  a  work  activity,  i.e.,  lane  closure  1 
is  one  lane  closed,  lane  closure  2  is 
two  lanes  closed,  etc. 

Maintenance  Level        -  The  number  of  periods  in  a  year  when  the 

workload  generated  by  a  roadway  will  be 
taken  care  of.  If  100  square  yards  of 
patching  were  the  annual  workload,  then 
a  maintenance  level  of  one  would  mean  that 
the  road  was  occupied  for  one  period  to 
perform  the  annual  work,  i.e.,  work  crews 
would  be  sent  to  the  road  every  day  until 
the  total  workload  generated  by  the  road- 
way had  been  taken  care  of  by  the  work 
crews.  A  maintenance  level  of  two  would 
mean  that  at  two  periods  in  the  year,  the 
roadway  would  be  occupied  to  perform  work. 
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Maintenance  Level 
CCont.) 


Occupancy  Interval 


Occupancy  Period 


FurtKer,  only  one-Fialf  of  t!ie  annual  work- 
load would  be  available  during  each  period. 
Finally,  if  the  maintenance  level  was 
.2,  then  the  road  would  only  be  occupied 
eyery   fifth  year.  The  workload  generated 
each  year  would  be  continually  accumulated 
until  it  could  be  taken  care  of  in  the 
fifth  year. 

Any  continuous  interval  of  time  which  is 
less  than  or  equal  to  24  hours  when  the 
roadway  can  be  occupied.  As  an  example,  one 
occupancy  interval  could  be  a  roadway 
occupancy  which  started  at  8  A.M.  and  was 
terminated  at  3  P.M.  If  crews  reoccupied 
the  road  at  8  P.M.  and  stayed  until  11  P.M., 
that  would  be  a  second  occupancy  interval. 

A  period  of  time  when  work  crews  occupy  a 
roadway  on  a  continual  basis,  i.e.,  at 
ewery   occupancy  interval  opportunity. 
Where  the  maintenance  level  is  greater  than 
one,  for  example  3,  the  annual  workload 
is  divided  into  three  parts.  It  requires 
an  occupancy  period  to  complete  the  work- 
load for  each  of  the  three  parts. 


Pavement  Analysis  Age     -  TKe  models  predicting  maintenance  work- 
load are  a  function  of  pavement  age.  A 
pavement  deteriorates  due  to  loadings 
and  fails  at  a  rate  related  to  its  design 
life.  The  workload  models  are  based  on 
a  deterioration  of  the  pavement  over 
twenty  years.  The  pavement  analysis  age 
is  created  for  use  in  the  workload  models 
to  accommodate  axle  loads  and  a  design 
life  which  do  not  correspond  to  the 
twenty-year  life  associated  with  the 
models. 

Pollution  Day  -  The  total  emissions  of  CO  and  HC  generated 

by  vehicles  operating  normally  on  a  free- 
way of  a  given  length  during  a  24-hour 
period.  The  increase  in  emissions 
created  during  a  roadway  occupancy  are 
converted  into  pollution  days  which  there- 
fore represent  the  days  of  normal  opera- 
tion required  to  generate  the  increased 
emissions  caused  by  the  roadway  occupancy. 
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Simulation  Workload      -  The  total  units  of  work  performed   during 

th.e  simulation  process  in  subroutine  MAINT. 
The  simulation  workload  is  controlled  by  the 
worksite  workload  and  the  number  of 
interations  specified  for  the  simulation. 

Worksite  -  The  spot  location  on  the  roadway  where 

work  crews  perform  productive  work. 

Work  Zone  -  The  area  on  a  roadway  where  work  crews 

can  actually  perform  work.  The  length 
of  this  zone  does  not  include  the  cone 
taper  used  to  channel  traffic. 
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Figure  2.  Layover  structure  tree  for  program  EAROMAR 
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PROGRAM  IMPLEMENTATION 

The  program  "EAROMAR"  is  written  in  FORTRAN  IV.  The  program  was 
run  and  compiled  using  the  IBM  360/65  computer  facilities  of  the  Fed- 
eral Highway  Administration.  The  program  required  150K  for  compilation 
and  runs  in  76K.  The  program  running  time  using  the  default  options, 
a  20-year  analysis  period,  portland  cement  concrete,  and  an  eight- 
lane  divided  freeway,  is  about  two  minutes.  Program  compilation  re- 
quires about  one  and  one-half  minutes. 
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NAME  DICTIONARY 

The  name  dictionary  documents  all  switches,  counters  and  accu- 
mulators and  hold  areas  for  the  program  'EAROMAR'.  The  documentation 
provides  a  description,  the  units  where  applicable  and  an  identifica- 
tion of  each  array,  dimensioning  and  the  identity  of  each  array  column 
and  subscript  value. 


A 

AACOST 
AAXLES 
AC(5) 

ACD(7,3) 


ACDTS(4) 
ACP(5) 

AGE 


Equation  intercept  variable 

Average  cost  of  an  accident  in  dollars 

Accumulated  18-kip  axle  loadings  in  millions 

Scale  factor  used  in  the  value  of  ti^,e   equation  for 
time  loss  less  than  15  mins.  by  five  trip  purposes 

Intercept  and  coefficients  for  a  series  of  accident 
rate  equations 

COLUMN 

1  l^One  lane  open  freeway 
2=Two  lane  open  freeway 
3=Three  lane  open  freeway 
4=Four  lane  open  freeway 
5=0ne  lane  open  detour 
6=Two  lane  open  detour 
7=Three  +  lane  open  detour 

2  l=Intercept 
2=Coefficient 
3=Coefficient 

Increased  accidents  by  lane  closure 

Scale  factor  used  in  the  value  of  time  equation  for  time 
losses  greater  than  15  mins.  by  five  trip  purposes 

Analysis  age  of  pavement  after  adjustment  for  resurfacing 
or  18-kip  axle  loadings 
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ALIGN(3,6) 


ARHO 
AS(5,11) 


AV0L(24) 
AVAIL 

AXLE 


Project  alignment  mileage 
COLUMN 

1  1=  +  Grade 
2=  -  Grade 
3=Curvature 

2  Alignment  values  1  thru  6  in  percent  or  degrees,  i.e., 
1=  +  1%  grade,  2=  +  2%  grade,  etc. 

Annual  rate  of  18-kip  axle  loadings  needed  to  reach  1.5  PSI 
in  20  years  based  on  AASHO  in  millions 

Speed  matrix  in  miles  per  hour 
COLUMN 

1    Closure  categories  as  follows 


8  Lane 

l=One  In  closed 
2=Two  In  closed 
3=Three  In  closed 
4=Detour 
5=Freeway 


6  Lane 

One  In  closed 
Two  In  closed 
Detour 
Freeway 


4  Lane 

One  In  closed 

Detour 

Freeway 


2    Eleven  increments  of  the  volume  capacity  ratio 
from  0  to  1 

Analysis  volume  by  hour  in  1000 's 

The  number  of  hours  which  a  crew  is  allowed  to  work 
continuously  on  roadway 

Given  18-kip  axle  loadings  (this  value  is  assigned 

through  interfacing  with  a  pavement  systems  deisgn  program) 


B 
BIT(5) 

BITP(5) 

B0(5) 


Equation  coefficient 

Coefficient  of  income  level  and  time  savings  where  time 
loss  is  less  than  15  minutes  in  the  benefits  functions 
by  trip  purpose 

Coefficient  of  income  level  and  time  savings  where  time 
loss  is  greater  than  15  minutes  in  the  benefits  functions 
by  trip  purpose 

Intercept  value  where  the  time  loss  is  less  than  15 
minutes  in  the  benefits  functions  by  trip  purpose 
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B02 

BT(5) 

BTP(5) 

C 

CAP(5) 

CAPACT 
CCAP(5,3) 


Intercept  value  where  the  time  loss  is  greater  than  15 
minutes  in  the  benefits  functions 

Coefficient  of  time  savings  where  the  time  loss  is  less 
than  15  minutes  in  the  benefits  functions  by  trip  purpose 

Coefficient  of  time  savings  where  the  time  loss  is  greater 
than  15  minutes  in  the  benefits  functions  by  trip  purpose 

Equation  coefficient 

Capacity  by  lane  closure  in  lOOO's  as  defined  for  CCAP 
for  a  given  freeway 


Temporary  label  for  closure  category  capacity 

Capacity  matrix  in  1000 's 

COLUMN 

1    Closure  categories  as  follows 

8  Lane  6  Lane 


4  Lane 

One  In  closed 

Shoulder 

Freeway 


CM 
COMVOT 


l=One  In  closed  One  In  closed 

2=Two  In  closed  Two  In  closed 

3=Three  In  closed  Shoulder 

4=Shoulder  Freeway 
5=Freeway 

Freeway  switch  where 

A.  Switch  1=4  lane 

B.  Switch  2=6  lane 

C.  Switch  3=8  lane 


Material  cost  for  an  activity  in  dollars  per  workload  unit 
Value  of  commercial  vehicle  time  in  dollars 
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C0STS(7,5,8,2) 


CPLANE 

CREWH(4) 

CREWT 
CR0SS(4) 

CU 

CVOL 

CWT 

CYCLE 

DAYS 

DELAY(24) 
DENSEW 


Accumulated  costs  and  impact  for  year 

COLUMN 

1  7  Activities 

2  5  Closure  categories 

3  8  Print  Column  as  follows: 

l=MaintenanGe  or  rehabilitation 
2=0peration  cost  difference 
3=Accident  cost  difference 
4=Accidents  difference 
5=Time  costs 
6=Time  manhours  lost 
7=Pollution 
8=Total  costs 

4  Two  Directions 

Temporary  hold  for  closure  category  capacity 

Total  crew  hours  by  lane  closure 

Crew  time  available  to  occupy  road  in  hours 

Crossover  factor  by  lane  closure 

Cost  of  equipment  and  labor  for  a  crew  hour 

Daily  commercial  vehicle  volume  in  lOOO's 

Commercial  volume  composite  weight  in  kips 

Temporary  variable  for  DET0UR(6) 

The  number  of  days  of  impact  on  motorist  for  a 
roadway  occupancy  interval 

Vehicle  delay  in  hours  by  hour 

Density  or  concentration  factor  of  workload  per 
mile  for  a  given  lane  closure 
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DET0UR(7) 
DFACT 

DIRECT(2,3) 

DIST 

DISTl 

DIST2 

DIST3 

DLIFE 

DSPEED 

DV0LC24) 

END 

ENOVER 
FACTl 

FACT2 

FACTS 

FACT4 

FACT5 

FACT6 

FACT7 

FACTS 


Detour  description  parameters 

Factor  used  to  modify  freeway  volume  to  create  a 
combined  freeway  and  detour  volume 

Literal  variables  used  in  describing  direction  in 
output 

Queue  length  in  miles 

First  worksite  location  within  a  traffic  control  zone 

Next  worksite  location  on  roadway 

Present  worksite  location  within  a  traffic  control  zone 

Pavement  design  life  in  years 

Freeway  design  speed  in  mph 

Directional  normal  hourly  volume  on  detour  in  1000 's 

Termination  literal  for  input 

Literal  equal  to  "bEND" 

Temporary  variable  used  for  factoring  in  program 

Temporary  variable  used  for  factoring  in  program 

Temporary  variable  used  for  factoring  in  program 

Temporary  variable  used  for  factoring  in  program 

Temporary  variable  used  for  factoring  in  program 

Temporary  variable  used  for  factoring  in  program 

Temporary  variable  used  for  factoring  in  program 

Temporary  variable  used  for  factoring  in  program 
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FACT9 
FCAP 

FIXHRS 
FUEL(2) 

HRS(7,24,4) 


HV0L(24) 

HW0RK(7) 
I 

II 

12 

13 

lA 

lATEST 


Temporary  variable  used  for  factoring  in  program 

The  factored  capacity  of  a  road  section,  normal 
capacity  reduced  to  reflect  the  passenger  equivalent 
of  commercial 

Hours  which  are  not  available  for  productive  work 
when  the  roadway  is  occupied 

Unit  price  of  a  gallon  of  fuel 

l=Passenger  cars 

2=Composite  commercial  vehicle 

Hold  area  for  days  of  occupancy  by  activity,  by 
hour,  by  lane  closure 

COLUMN 

1  7  Activities 

2  24  Hours 

3  4  Lane  closures 

Directional  normal  hourly  volume  of  traffic  on  freeway 

Accumulated  annual  workload  by  activity  (per  lane  mile) 
Indexing  variable 

Dummy  read  variable  and  indexer 

Dummy  read  variable 

Dummy  read  variable 

The  subscript  of  the  maintenance  activity  which  is 
being  processed  by  the  program 

Temporary  integer  variable  used  to  round  ATEST 
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IBAL(7,2,2) 


IBEGIN 
IC 


ID 
IDIR 


lEND 

IH 

IH0UR(24,7) 


Indicator  array  used  to  flag  input  distributions 
COLUMN 

1  7  trip  purposes 

2  2  directions 

3  2  volume  levels 

First  impact  hour  of  a  given  duration  roadway  occupancy 

Subscript  used  to  denote  the  lane  closure  for  maintenance 

1=1  lane  closed 
2=2  lanes  closed 
3=3  lanes  closed 
4=4  lanes  closed 

Subscript  used  to  denote  directional  roadway 

Index  used  to  acknowledge  a  balance  in  AM  and  PM 
peak  hourly  distributions 

1=AM,  peak  direction 
2=PM,  peak  direction 

Last  impact  hour  of  a  given  duration  roadway  occupancy 

The  subscript  of  the  hour  being  processed  by  the  program 

Each  hour  of  this  array  has  either  a  zero  or  one 
associated  with  it  which  indicates  work  can  be  performed 
(1)  or  is  not  permitted  (0)  during  the  subscribed  hour 


o 


COLUMN 

1 
2 


24  hours 
7  activities 


IMl 
IM2 


A  temporary  hold  variable  in  determining  the  available 
crew  time 

The  first  hour  crews  can  occupy  a  roadway 
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INI 
IN2 
INC 


INDEX 
IN0CC(10,3) 


IP 
IPRINT 


IPTEST 

IS 

ISIM 


Variable  to  hold  'from'  occupancy  hour  in  the  estab- 
lishment of  the  available  occupancy  time  array  IHOUR 

Variable  to  hold  'to'  occupancy  hour  in  the  estab- 
lishment of  the  available  occupancy  time  array  IHOUR 

Income  level  switch  used  in  computing  the  value  of  time 

1  -  Under  $4000 

2  -  $4000-$5999/yr. 

3  -  $6000-$7999/yr. 

4  -  $8000-$9999/yr. 

5  -  $10000-$11999/yr. 

6  -  $12000-$14999/yr. 

7  -  $15000-$19999/yr. 

8  -  $20000  and  over 

A  variable  used  to  indicate  processing  position 

Assumed  or  specified  allowable  interval  of  time  road 
can  be  occupied  to  perform  maintenance 

COLUMN 

1  Ten  activities  can  be  specified 

2  Variable 

1  -  Activity  number  (Activity  Number  10  is 

all  activities) 

2  -  Occupancy  start  hour 

3  -  Occupancy  termination  hour 

Pointer  switch  used  for  optional  input 

Switch  used  to  control  analysis  output 

l=Direction  level  all 
2=Year  level  all 
3=Year  level  total 
4=Analysis  period  total 

Temporary  integer  variable  used  to  round  PTEST 

The  subscript  of  the  speed  being  processed  by  the  program 

Number  of  simulation  iterations 
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IT 


ITEST 
IT0TAL(5,8,2) 


ITRUCK 

IW 

IWT 

lY 


Switch  used  to  direct  branch  to  proper  array  position 
by  trip  purpose 

l=Pass.  car  work  trips 

2-Pass.  car  personal  business  trips 

3=Pass.  car  social -recreational  trips 

4=Pass.  car  school  trips 

5=Pass.  car  vacation  trips 

6=Commercial  vehicle  trips 

7=A11  trips 

Variable  used  to  temporarily  round  numbers  in  reconcile 

Output  totals 

COLUMN 

1  5  closure  categories 

2  8  print  columns 

l=Maintenance  and  rehabilation  cost 

2=0peration  cost 

3=Time  cost 

4=Time  hours 

5=Accidents 

6=Accident  costs 

7=Pollution  days 

8=Total  costs 

Variable  used  to  temporarily  round  percent  of  commercial 
vehicles 

Indexing  variable  for  the  simulation  process 

Number  vehicle  classes  (Max  10) 

Subscript  of  analysis  year  being  processed  by  the  program 
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J 
Jl 

JH0UR(24) 
JPRINT 


K 
KP 


LANES 
LEVEL 


LF 

M 
MI 

MI 
MO 


Indexing  variable 

Indexing  variable 

The  array  'IHOUR'  of  available  occupancy  hours  for  a 
activity  modified  for  v/c  ratio  restrictions 

Switch  to  control  printing  of  program  input  and 
informational  matrices 

l=Print 

2=Do  not  print 

Indexing  variable 

Switch  for  highway  design  being  considered 

l=4-lane 
2=6-lane 
3=8-lane 

The  number  of  expressway  lanes  in  one  direction 

Switch  used  to  direct  branch  to  proper  array 

l=Initial  year  volume 
2=Final  year  volume 

A  factor  used  to  increase  simulation  workload  to 
reflect  that  the  worksite  workload  is  being 
factored  by  the  number  of  lanes  closed 

Temporary  switch  and  DO  loop  limiting  variable 

Last  even  hour  available  for  road  occupancy  in 
simulation  process 

Data  reference  set  number  card  reader  'input' 

Data  reference  set  number  printer  'output' 
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N 
Nl 

N2 

N3 

NA 

NOTIME 

NY 

NYEARS 

NZ 

0C0ST(65,4,2) 


0C0STS(65,4,2) 


Temporary,  switch  and  indexing  variable 

Counter  for  the  random  generation  of  full  depth 
patch  sizes 

Counter  for  the  random  generation  of  partial  depth 
patch  sizes 

Counter  for  the  random  generation  of  roadway 
patch  locations 

Level  of  maintenance  factor 

An  index  used  to  indicate  that  no  roadway  occupancy 
hours  are  available.  No  occupancy  occurs  and  output 
for  closure  category  shows  stars. 

A  positive  odd  number  used  in  the  random  number  process 

Number  of  years  to  be  analyzed 

Number  of  traffic  control  zones  for  a  given  activity 
and  lane  closure 

Array  holding  operation  parameters  for  given  roadway 
COLUMN 

1  65  speeds 

2  l=Fuel  consumption 
2=Tire  wear 

3=0il  consumption 

4=Maintenance  and  depreciation  cost 

3  l=Passenger  cars 
2=Commercial  vehicles 

Array  holding  the  operation  cost  associated  with  fuel, 
oil,  tires,  maintenance  and  depreciation 


OCSCHL 


COLUMN 

1 
3 


55  Speeds 
l=Passenger  cars 
2=Commercial  vehicles 


Average  occupancy  per  vehicle  on  school  trips 
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OCWORK 
0IL(2) 

0VER(12,7) 


PATCHF(IOOO) 
PATCHP(IOOO) 
PAVE(3,3) 


Average  occupancy  per  vehicle  on  work  trips 

Unit  cost  of  a  quart  of  oil 

l=Passenger  cars 

2=Composite  commercial  vehicle 

An  array  holding  program  parameters  which  are  assigned 
by  the  program  or  can  be  specified  by  the  user 

COLUMN  1  -  Type  of  parameter 

l=Continuous  crew  work  hours 
2=Location  or  joint  spacing  in  feet 
3=Workload  model  factor 
4=Workload  model  fixed  annual  rate 
5=Travel  time  hours  (round  trip) 
6=Maintenance  level 
7=Cure  time  hours 

8=Traffic  control  installation  hours 
9=Max.  TC  length 

10=Vol/Cap  ratio  allowed 

ll=Min  TC  length 

12=Shoulders  open  to  traffic 

COLUMN  2-7  Activities 

Speed  used  in  pollution  factor  equations 

The  array  holding  1000  random  generated  full  size 
patches 

The  array  holding  1000  random  generated  partial 
depth  concrete  patches 

Literal  variable  used  for  pavement  description  in 
output  printing 


PCTADT(24,7,2,2)  Hourly  distribution  of  traffic  by  trip  purpose, 
direction,  and  volume  level 

EVALUATION* 
LEVEL 

1  100%  distributions  for  each  trip  purpose 
for  Initial  and  Final  volume  levels  in  both 
directions 

2  100%  distributions  adjusted  by  distribution 
of  trip  purposes  for  Initial  and  Final  volume 
levels  in  both  directions 
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PD 
PERCNT(6,2,2) 


PFACT 
P0LUTE(4) 


3    Base  year  distribution  and  add  on  array  for 
each  trip  purpose  and  direction 

Pollution  factor  for  normal  detour  operation 

Distribution  of  traffic  among  trip  purposes 

COLUMN 

1  6  Trip  purposes 

2  2  Directions 

3  2  Volume  levels 

1  Initial  volume 

2  Final  volume 

Factor  to  convert  patch  length  to  area  in  square  yards 

Pollution  equivalent  normal  vehicle  miles  by  lane 
closure 


PQ 

PR 

PROJLN 

PS(7,3,3) 


PSI 

BSIASN 
PSIRS 
PWT 


Pollution  factor  for  operation  in  the  queue 
Pollution  factor  for  operation  in  the  influence  zone 
Length  of  pavement  section  being  designed  in  miles 
Performance  standard  data  for  costing  maintenance  activity 
COLUMN 

1  7  Activities 

2  Pavement  Type 

l=Portland  cement  concrete 
2=Bituminous  concrete 
3=Composite 

3  l=Labor  &  equipment  hourly  cost 
2=Material  cost  per  workload  unit    ' 
3=Production  rate  in  workload  units  per  hour 

Present  serviceability  index 

Assigned  initial  PSI  for  analysis 

The  PSI  value  below  which  resurfacing  occurs 

Passenger  car  weight  in  kips 
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QUECST(2) 


Ql 
RAGE 

RAND0M(2) 


RATE  I 

RHO 
RLIFE 

RLOC(IOOO) 
R0AD(2,3) 

RTIME 

RW 
S 

SCZONE 

SF 

SFACT 


The  operation  cost  associated  with  the  delay  created 
by  a  queue 

l=Normal  operation  cost  in  queue  zone  in  dollars  per  hour 
2=Actual  operation  cost  in  the  queue  in  dollars  per  hour 

Composite  passenger-commercial  speed  change  costs 
Resurfaced  Age 

A  random  number  which  falls  between  0.00  and  1.00 
Position  1  is  used  to  create  an  X  value  to  be  used 
in  a  density  function. 

Position  2  is  used  to  test  the  number  generated  from 
a  density  function. 

Interest  rate  on  money  used  in  present  worth  computation 
in  percent 

AASHO  based  18-kip  loadings  to  produce  1.5  PSI  in  millions 

Design  life  of  resurfaced  pavement  in  years 

Array  holding  1000  random  numbers  from  0-1.0 

Literal  variable  used  for  freeway  description  in 
output  printing 

Real  remainder  =  balance  of  roadway  occupancy  time 
in  simulation  process 

Weight  Ratio  factor  to  convert  operation  parameters  for 
a  base  passenger  vehicle  to  any  weight  vehicle 
Speed  value  used  in  equations  of  speed  change 

An  assumed  speed  change  zone  equal  to  one  mile 
used  in  evaluation  of  accident  rates 

Spacing  increment  used  to  accumulate  stationing 
for  uniformly  spaced  worksites 

A  factor  to  be  applied  to  the  random  location  array 
to  adjust  it  for  the  number  of  simulation  iterations 
specified  for  an  activity 
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SIM(7,5) 


SINDEX 

SLIMIT(5) 

SP(5,11) 


SPEED(24) 

SPEEDD(24) 

SPEEDN(24) 
SPLIT(2) 


Descriptor  for  simulation  process 
COLUMN 

1  7  Activities 

2  l=l'Jorksite  switch 

l=Full  depth  patch 

2=Partial  depth  patch 

3=Lanes  closed 
2=Worksite  size  multiplier  factor 
3=Worksite  size  add  on  constant 
4=Number  of  simulation  iterations 
5=Worksite  spacing  switch 

l=Random  spacing 

2=lInTform  spacing 

Services  index  used  to  modify  vehicle  operation 
Speed  limit  in  mph  assigned  to  closure  category 
Speed  matrix 
COLUMN 

1     Closure  category 
8  Lane  6  Lane 


l=One  In  closed  One  In  closed 

2=Two  In  closed  Two  In  closed 

3=Three  In  closed  Detour 

4=Detour  Freeway 
5=Freeway 


4  Lane 

One  In  closed 

Detour 

Freeway 


Vehicle  speed  through  traffic  influence  zone  by  hour 

Normal  vehicle  speed  on  detour  by* hour 

Normal  vehicle  speed  on  freeway  by  hour 

The  percentage  of  daily  traffic  in  the  AM  Direction 


EVALUATION* 
LEVEL 

Column 

1 

1  Initial  year 

2  Final 

2 

1  Base  year 

2  Annual  increment 

3 

1  Analysis  year 
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ss 

SSIM(3,7,5) 


STIME 

SW0RK(7) 
TCMOVE 

TCMOVE 

TEMPI 

TEMP2 

TEMPS 

TEMP4 

TEMPS 

TEMP6 

TEMP7 


Real  version  of  IS,  speed  subscript 
Descriptor  for  simulation  process 
COLUMN 

1  Pavement  type 

1=PCC 

2=Bituminous 

3=Composite 

2  7  Activities 

3  1=3  Worksite  types  where 

l=Full  size  patch 
2=Partial  size  patch 
3=Lanes  closed 

2=Worl<site  size  multiplier  factor 

3=Worksite  size  add-on  constant 

4=Number  of  simulation  iterations 

5=l=Random  locations 
2=Uniform  locations 

Total  road  occupancy  time  in  hours 

Simulation  workload  by  activity 
Travel  speed  between  TC  sites 

Driving  speed  between  traffic  control  site 

Variable  used  for  holding  numbers  temporarily  in 

Variable  used  for  holding  numbers  temporarily  in 

Variable  used  for  holding  numbers  temporarily  in 

Variable  used  for  holding  numbers  temporarily  in 

Variable  used  for  holding  numbers  temporarily  in 

Variable  used  for  holding  numbers  temporarily  in 

Variable  used  for  holding  numbers  temporarily  in 


program 
program 
program 
program 
program 
program 
program 
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TEST 

THICK 

THICKl 

THICK2 

THICK3 

TIME 

TIMEl 

TIME2 

TIMEL 

TIMELD 

TIRES(2y 

TLEVEL(7) 

T0TALA(8) 
T0TALY(8) 

TRUCKS(2) 


Variable  used  for  temporarily  holding  sums  in  reconcile 
routine 

Equivalent  pavement  thickness 

The  thickness  of  pavement  surface 

The  thickness  of  pavement  base 

The  thickness  of  pavement  subbase 

Hours  required  to  complete  work  at  a  given  worksite 
location 

The  delay  time  associated  with  the  first  vehicle  in 
a  given  hour 

The  delay  time  associated  with  the  last  vehicle  in 
a  given  hour 

Hours  lost  by  each  freeway  motorest 

Hours  lost  by  each  detour  motorest 

Unit  cost  of  .001  inches  of  tire  wear 

l=Passenger  cars 
2=Commercial  vehicles 

Accumulation  area  for  maintenance  levels  which  are 
less  than  1  by  activity 

Totals  for  analysis  period  discounted  to  present  worth 

Minimum  totals  for  analysis  year  discounted  to  present 
worth 

Percentage  of  total  traffic  volume  which  is  commercial 
in  percent 


i 


EVALUATION* 
LEVEL 

1 
2 
3 


Column 

1  Initial  analysis  year 

2  Final  analysis  year 

1  Base  year 

2  Annual 

1  Analysis  year 


30 


TT 

TTIME 
VALUE 

VC 

V0LUME(2) 


VTRATE(5,40) 


WALK 
WEIGHT(10,3) 


Temporary  hold  variable  for  crew  travel  time  in  hours 
from  maintenance  yard  to  road  and  return 

Accumulated  production  hours  for  each  roadway  occupancy 
Dummy  read  variable 

Volume-capacity  ratio 

Average  daily  traffic  volume  in  thousands 


EVALUATION' 
LEVEL 

1 
2 
3 


Column 

1  Initial  analysis  year 

2  Final  analysis  year 

1  Base  year 

2  Annual  increment 


1  Analysis  year 
Value  of  time  array 
COLUMN 

1  Five  trip  purposes  where 

l=Work  trips 
2=Social -recreational 
3=Personal  business 
4=Vacation 
5=School 

2  40  minute  increments 

Product  of  the  annual  workload  per  lane  mile  for  a 
given  activity  and  project  length  in  miles  divided  by 
the  simulation  workload 

Rate  crews  move  on  road  between  repair  location  (MPH) 

Vehicle  weight  array 

COLUMN 

1     Each  vehicle  class 
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WIDTH 
WK 

WORK 
XF 

XP 
YD 

Z(24) 
ZC 

ZL 

ZONE 
Z0NEL(7,4) 


2     l=Weight  in  kips 

2=Percent  of  commercial  vehicle  in  given 
weight  class 

3=Average  purchase  price  of  vehicle  in  dollars 

The  assumed  or  given  width  of  a  roadway  lane  in  feet 

Workload  density  per  lane  mile  for  a  given  occupancy 
simulation 

Annual  computed  workload 

The  length  of  a  full  depth  patch  in  feet 

The  area  of  a  partial  depth  patch  in  square  feet 
A  number  computed  from  a  density  function 
Dummy  read  variable 

Zone  length  constant  for  one  worksite  location 
(minimum  zone  length) 

Accumulated  length  of  traffic  control  zone  for  a 
given  activity  and  lane  closure 

Applicable  influence  zone  (freeway  or  detour) 

The  average  length  of  influence  zone 


*Evaluation  level  means  that  the  contents  of  the  array 
changes  at  various  points  in  the  program  process 
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Program  EAROMAR  -  MAIN 

Purpose 

MAIN  controls  the  sequence  in  which  the  subroutines  are  called. 

Description 

MAIi^  is  kept  as  small  as  possible  to  minimize  the  core  require- 
ment. MAIN  calls  the  subroutines  INITAL  and  OPPARA  to  establish  the 
initialization  of  arrays  and  variables  needed  in  the  analysis.  Fol- 
lowing the  initialization  process,  YEAR  is  called,  and  the  analysis 
of  roadway  occupancy  performed. 

A  complete  printout  of  the  initialization  information  is  available 
on  request  through  the  print  option  JPRINT,  which  is  set  to  default 
the  initialization  printout. 
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General  Flow  for  MAIN  in  Program  "EAROMAR" 


MAIN 


Set  card  reader 

and  printer 

numbers 


Block  data  initialization 
of  variables  in  common 
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SUBROUTINE  INITAL 
Purpose 

This  subroutine  is  used  to  establish  a  series  of  basic  arrays  needed 
in  the  economic  analysis  of  roadway  occupancy  for  maintenance  and  recon- 
struction (EAROMAR).  The  routines  OVER,  RECON,  SPEED,  INOCC  and  RANDOM 
reside  in  this  subroutine.  Each  of  these  routines  are  described  in  de- 
tail by  themselves.  OVER  handles  all  user  override  inputs,  SPEED  is  used 
to  develop  a  speed  matrix  for  each  closure  category.  RANDOM  and  INOCC 
create  arrays  needed  in  the  simulation  subroutine  MAINT,  and  RECON  esta- 
blishes an  hourly  traffic  volume  array  by  trip  purpose  and  direction. 
The  subroutine  INITAL  itself  handles  all  required  program  input. 

Description 

The  subroutine  INITAL  reads  information  on  the  pavement  design  and 
on  the  expected  traffic  which  is  required  in  the  program  "EAROMAR".  This 
required  input  consists  of  the  following: 

Volume  Input 

A.  Initial  and  final  analysis  year  traffic  volume  in  ADT 

B.  Initial  and  final  analysis  year  directional  spjit  in  terms 
of  the  percentage  in  the  AM  peak 

C.  Initial  and  final  analysis  year  commercial  vehicle  percentage 
of  total  ADT 

Pavement  Input 

A.  Number  of  years  to  be  analyzed 

B.  Freeway  class  where 

1=4  lane  divided 
2=6  lane  divided 
3=8  lane  divided 
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C.  Pavement  type  where 

1  =  Portland  Cement  Concrete 

2  =  Bituminous  Concrete 

3  =  Composite  PCC-Bituminous 

D.  Project  length  in  miles 

E.  Pavement  surface,  base  and  subbase  thickness  in  inches 

The  following  variables  are  initialized  with  default  values  in  the 
subroutine  INITAL: 

A.  SSIM  -  Simulation  parameters  by  activity  for  concrete, 
bituminous  and  composite  pavement 

B.  PERCNT  -  The  percentage  of  total  traffic  falling  into  one  of 
six  trip  purposes  by  direction  and  for  an  initial  and  final 
analysis  year 

C.  INOCC  -  Available  occupancy  specifications 

D.  DSPEED  -  The  freeway  design  speed 

E.  CCAP  -  The  capacity  by  closure  category  for  4,  6  and  8  lane 
freeways 

Following  the  required  input,  which  identifies  pavement  type,  the  appro- 
priate simulation  parameters  SSIM  and  capacities  CCAP  are  placed  in  the 
common  arrays  SIM  &  CAP  for  use  in  the  subroutines  YEARS  and  MAINT. 

Based  on  AASHO  equations,  the  subroutine  INITAL  calculates  the  18-kip 
accumulated  axles  required  to  fail  pavement  (reach  a  PSI  of  1.5)  which  is 
divided  by  20  and  placed  in  common  for  use  in  the  routine  AWORKL  which 
resides  in  subroutine  YEAR. 

INITAL  then  proceeds  to  execute  routines  OVER,  RANDOM,  SPEED,  INOCC 
and  RECON. 
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General  Flow  for  Subroutine  INITAL  in  Program  'EAROMAR' 


INITAL 


Initialize  SSIM, 

DSPEED,  INOCC,  RBAL, 

PERCNT,  CCAP 


Traffic  input  for 

initial  and  final 

analysis  year 


Analysis  years, 
pavement  type, 
thickness,  freeway 
type  &  length 


Initialize  simulation 

defaults  for  pavement 

type 


I 


Initialize  hourly 
traffic  default  matrix 


Determine  annual  18- kip 
threshold  for  pavement 


>© 
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INITAL  cont'd. 


^ 

Routine 
OVER 

yr 

Routine 
RANDOM 

V 

Routine 
SPEED 

V 

Routine 
INOCC 

'I 

r 

Routine 
RECON 

^ 

r 

RETURN    ) 
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SUBROUTINE:  INITAL 
ROUTINE:  OVER 

Purpose 

This  routine  reads  as  optional  input, overrides  specified  by  the 
program  user.  Each  of  the  overrides  has  been  initialized  with  default 
values.  This  initialization  occurs  in  BLOCK  DATA  for  all  labeled 
common  variables  used  in  the  program  "EAROMAR".  The  remaining  options 
are  initialized  with  default  values  in  the  subroutine,  INITAL. 

The  input  format  for  override  options  available  to  the  program 
user  are  described  in  detail  in  the  section  covering  optional  input 
format  and  description.  They  can  be  specified  in  any  order  by  the  user. 
The  override  switch  determines  how  the  optional  input  is  read  by  the 
program. 

The  input  options  for  overriding  variables  are  as  follows: 
Switch  =  1  -  Hourly  volume  distribution  by  trip  purpose 

The  array  PCTADT  is  initialized  with  hourly  distributions  for  each 
of  six  trip  purposes.  These  are: 

1.  Work  trips 

2.  Personal  business  trips 

3.  Social -recreational  trips 

4.  School  trips 

5.  Vacation  trips 

6.  Commercial  trips 

The  initialization  default  distributions  are  shown  in  Figures  3  through  10  . 
The  program  user,  at  his  option,  can  override  one  or  all  of  these  distributions 
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CVJ 


The  24-hour  distribution  totals  unity  for  each  trip  purpose  and  direction. 
Switch  =  2  -  Percent  of  Total  Volume  by  Trip  Purpose 

The  array  PERCNT  is  initialized  by  direction  and  for  the  initial  and 
final  analysis  year  with  the  percentage  distribution  of  total  volume  (ADT) 
falling  in  each  of  the  following  trip  purposes: 

1.  Work 

2.  Personal  business 

3.  Social -recreational 

4.  School 

5.  Vacation 

6.  Commercial 

The  initialization  defaults  are  shown  in  Table  6  ,  The  program  user,  at 
his  option,  can  override  the  percentage  distribution  by  direction  and  ana- 
lysis level  (initial  or  final  year). 
Switch  =  3  -  Directional  balancing  switch 

This  switch  causes  the  hourly  distribution  of  traffic  by  direction 
to  be  balanced  so  that  the  distribution  is  identical  in  both  the  AM  peak 
and  the  PM  peak  directions. 
Switch  =  4  -  Permitted  occupancy  interval  by  activity 

The  array  INOCC  is  initialized  with  values  defining  when  the  roadway 
may  be  occupied  to  perform  each  activity  as  shown  in  Table  6.  The  array 
variable  is  dimensioned  as  follows: 

INOCC  (10,3)  -  Column  one  holds  up  to  ten  descriptors.  The  10th  position 
is  reserved  for  the  default  option,  therefore,  the  user  may  enter  a  maxi- 
mum of  nine  descriptors.  The  three  switches  associated  with  each  descriptor 
are  the  following: 
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1  =  Activity  number 

2  =  Occupancy  starting  hour 

3  =  Occupancy  terminal  hour 

Activity  number  10  is  a  dummy  number  which  can  be  assigned  to  Switch  No.  1 
when  the  start  and  terminal  hour  are  to  be  associated  with  all  activities. 
The  default  is  a  dummy  activity  number  10.  Should  the  program  user  elect 
to  define  a  period  applicable  to  all  activities,  the  default  is  overridden. 
Otherwise,  the  default  is  supplemented  by  the  user-supplied  descriptors. 
The  default  occupancy  interval  is  only  used  when  an  occupancy  interval  for 
a  given  activity  is  not  made  available  to  the  program. 
Switch  =  5  -  A  range  of  override  parameters  by  activity  which  are  held  in 
the  array  OVER. 

The  default  values  for  this  array  are  shown  in  Table  7  .  The  program 
user  at  his  option  can  override  any  one  of  these  defaults  by  activity. 
Included  in  OVER  are  the  variables  which  are  identified  by  the  following 
switches : 

1  =  The  number  of  continuous  hours  that  a  crew  is  permitted  to  work 

2  =  The  maximum  distance  in  feet  between  worksite  locations.  This 

defines  joint  spacing,  the  maximum  size  of  a  patch,  etc. 

3  =  A  workload  model  factor  which  is  used  to  multiply  the  value 

created  by  the  workload  models  in  the  routine  AWORKL.  As  ex- 
ample, if  the  model  predicts  10  units  and  the  workload  model 
factor  is  3,  then  the  workload  becomes  30  (3  x  10). 

4  =  A  workload  model  fixed  annual  rate  which  when  input,  is  substi- 

tuted for  any  computed  workload  value  in  the  routine  AWORKL. 


55 


(U 


KO 


•a 

1-H 

(U 

%^_^ 

c: 

S- 

Dl 

O)  Lf) 

-i 

V) 

3 

<o 

2: 

,*-— *s 

w  <: 

O) 

0)  I— 1 

-o 

3       " 

O  "id- 

>—  :s 

(_3 

fO  — 

>  q: 

CO 

UJ 

(U 

■)->  > 

•  r— 

r—  O 

-t-> 

3 

•r- 

ns   0) 

>  CO 

M-   n- 

•(— 

O)  JD 

+J 

-O    fO 

u 

•r— 

< 

E    S- 

fO    fO 

s-   > 

en 

C\J 

o  <u 

s-  -o 

Q.T- 

s_ 

O)   s- 

^  cu 

1-  > 

o 

t— 1 

•  o 

■^    4-> 

c 
o 

•r— 

-C  4-> 

a  CM 

•r-  S- 

3  o 

CO  </> 
Qi 


o  • 

4->  O 

•I-  ^ 

s 

CO 


o 
o 

o 
o 

o 
o 

o 

o 

ID 

o 

o 

LO 
CVJ 

o 
o 

o 
o 

in 

o 

CM 
t— 1 

o 

t-l 

o 

O 

o 

o 

o 

1—1 

o 

r-l 

o 

o 

o 
o 


00 


o 
o 


CO 


o 
o 


00 


o 
o 


00 


o 
o 


00 


o 
o 


CT» 


o 
o 


o 
o 


o 
Ln 


o 
o 


o 
o 


o 

LO 


o 
o 


o 
o 


un 

CVJ 


o 

LO 


o 
o 


o 

T— I 

o 


o 
o 


o 
o 


o 

LO 


o 
o 


o 
o 


o 

LO 


o 
o 


o 

o 


LO 
CM 


o 

LO 


o 
o 


o 

T—i 

o 


o 
o 


o 
o 


O     »-H 
LO 


o 
o 


o 

LO 


o 

CM 


o 
o 


LO 
CM 


o 
o 


o 
o 


o 
o 


o 
o 


o 

LO 


o 
o 


o 
o 


o 

LO 


o 
o 


o 
o 


LO 
CM 


CM 


o 

LO 


o 

I— I 

o 


o 


o 
o 


o 
o 


o 

LO 


o 
o 


o 
o 


o 

LO 


o 
o 


o 
o 


LO 
CVJ 


o 

LO 


o 
o 


o 
o 


o 

LO 


o 
o 


o 

LO 


o 
o 


o 
o 


LO 
CM 


o 

LO 


o 
o 


CO 


o 

t— I 

o 

o 

o 

o 

r-l 

o 


o 
o 


CM 


o 
o 


o 
o 


CD 

s- 

E 

o 

U) 

•p— 

+J 

s- 

JSZ 

J= 

10 

CJ 

o 

3 

to 

-»-> 

-M 

3 

to 

m 

ai 

o 

r— 

S- 

CD 

CD 

o 

o 

Q, 

^- 

-o 

-C 

O) 

3 

E 

(U 

E 

-(-> 

3 

00 

"f— 

> 

o 

r^ 

OJ 

E 

(U 

C 

r— 

s- 

E 

<u 

JZ 

o 

1 — 

3 

o 

^- 

E 

•1— 

E 

CD 

s- 

r— 

S- 

r^ 

•  1 — 

CU 

•4-> 

O 

-o 

<u 

E 

4-> 

O) 

o 

-M 

OJ 

a. 

E 

•r- 

> 

CL) 

OJ 

•r- 

E 

E 

> 

(T3 

E 

o 

O    to 

4-> 

^ 

o 

E 

o 

O 

O 

S- 

O 

u  s- 

(O 

E 

O) 

o 

N 

cu 

N 

10 

3 

U 

TJ 

XJ 

+-) 

fO 

e 

to 

r— 

>> 

to 

s- 

-a  o 

O 

(O 

fO 

E 

•1 — 

o 

hr. 

(U 

JD 

+-> 

F 

OJ 

<u  u 

0)  ^ 

O 

o 

, 

O) 

+j 

3 

1 — 

rC 

•( — 

3 

r— 

-o  •<- 

s 

O) 

•fJ 

4- 

to 

i£ 

•r- 

<: 

o 

F 

•r™ 

r—  ^- 

O    2 

-^ 

^ 

.^ 

> 

E 

O) 

4- 

i~ 

i= 

o 

03 

F 

3  l+- 

1—    d) 

s- 

s_ 

s- 

fO 

•r- 

S- 

fO 

3 

X 

Q. 

E 

o  <o 

1—    S- 

o 

o 

o 

s_ 

fC 

3 

S- 

O 

fO 

E 

1 — 

fa 

•  1— 

E 

^  s- 

<:  u 

3: 

3: 

3 

h- 

s: 

o 

1— 

-E 

2: 

•>— 

< 

u 

2: 

•r- 

to  +-> 

CM 


CO 


UD 


00 


CT> 


CM 


55 


This  permits  the  user  to  bypass  the  workload  models  built  into 
the  program. 

5  =  Travel  time,  which  is  the  time  in  hours,  required  by  a  crew 

to  go  from  a  garage  facility  to  the  freeway  and  then  return  to 
the  garage  facility  at  the  end  of  the  work  period  or  day. 

6  =  The  maintenance  level  which  determines  the  frequency  of  perform- 

ing an  activity.  This  is  a  key  parameter,  and  if  an  activity 
is  to  be  deleted,  the  maintenance  level  snould  be  specified  as 
zero.  The  program  bypasses  all  processing  any  time  an  activity 
with  a  zero  occurs  in  the  program  iteration  process.  A  main- 
tenance level  value  of  1  causes  the  annual  workload  to  be  pro- 
cessed once  during  the  year.  A  maintenance  level  value  of  2 
causes  the  annual  workload  to  be  divided  into  two  equal  parts 
and  the  economic  analysis  reflects  the  costs  to  occupy  the  road- 
way at  two  occupancy  intervals.  A  maintenance  level  value  of  .2 
will  cause  the  program  to  accumulate  annual  workload  until  the 
maintenance  level  accumulates  to  a  value  above  1.  In  this  case, 
the  activity  would  be  executed  once  e^ery   five  years  and  the 
workload  will  be  five  times  the  annual  workload. 

7  =  The  cure  time  in  hours  required  for  an  activity.  Where  this 

value  is  specified,  it  reflects  time  which  the  roadway  is 
occupied  during  each  occupancy  when  no  productive  work  can  be 
done. 

8  =  The  time  in  hours  required  to  install  traffic  control  signing 

and  delineation.  This  is  time  which  precedes  the  start  of 
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productive  activity.  It  should  reflect  the  mean  time  which  can 
be  used  for  either  the  installation  or  removal  of  traffic  control 
9  =  The  maximum  length  permitted  for  a  traffic  control  zone.  This 
governs  the  frequency  of  traffic  control  installations  in  the 
roadway  occupancy  simulation  process  which  occurs  in  subroutine 
MAI NT. 

10  =  The  volume/capacity  ratio  allowed.  This  value  is  tested  against 

the  V/C  ratio  computed  for  each  hour  of  proposed  occupancy.  If 
this  value  is  exceeded,  the  roadway  cannot  be  occupied  during 
that  hour  by  maintenance  crews. 

11  =  The  minimum  work  zone  distance  in  feet.  This  specifies  the 

length  of  the  worksite  required  when  crews  occupy  the  roadway 
to  perform  work  at  a  single  worksite  location.  This  is  the 
area  occupied  by  crew  and  equipment.  It  should  not  include 
the  taper  distance  used  for  traffic  merging  prior  to  reaching 
the  worksite  or  leaving  the  worksite. 

12  =  The  number  of  shoulders  open  to  traffic. 
Switch  =  6  -  Vertical  and  Horizontal  Alignment 

The  array  ALIGN  is  initialized  with  zeroes,  a  default  reflecting  a 
roadway  which  is  a  normal  tangent  section.  The  program  user,  at  his 
option,  can  specify  vertical  and  horizontal  alignment.  This  is  used  in 
the  determination  of  the  vehicle  operation  cost  array  in  routine  OPCOST 
which  resides  in  subroutine  OPPARA. 

Switch  =  7  -  Vehicle  Classification  Data 

The  array  WEIGHT  is  initialized  with  the  default  values  shown  in 
Table  8  .  The  user  has  the  option  of  overriding  these  default  values. 
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Table  8  .  Program  default  values  for  vehicle 
classification  variable  WEIGHT  (N,I) 


Vehicle   1.  Vehicle  weight   2.  Percentage  of   3.  Sales  price 
number      class  in  kips      vehicles  in      associated  with 
N weight  class weight  class 


1  4.2 

2  15.4 

3  39.8 

4  53.6 


93.1 

$  3000 

2.9 

7300 

2.2 

24400 

2.8 

39300 
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If  this  option  is  used,  the  entire  array  must  be  entered,  and  the  first 
class  must  be  a  description  of  passenger  cars.  Up  to  nine  different 
commercial  vehicle  classes  may  be  defined. 
Switch  =  8  -  Maintenance  Simulation  Parameters 

The  array  SIM  is  based  on  pavement  type  and  the  default  is  obtained 
from  array  SSIM,  as  shown  in  Table  9. 

The  user,  at  his  option,  may  override  the  simulation  parameters  for 
any  activity.  The  simulation  parameters  described  in  SIM  are  the  following 

A.  Type  of  worksite  switch 

1  =  Full  size  patch 

2  =  Partial  size  patch 

3  =  Lanes 

B.  Worksite  factor 

C.  Worksite  add-on 

D.  Simulation  iterations 

E.  Spacing  parameter  switch 

1  =  Random 

2  =  Uniform 

Switch  =  9  -  Unit  Operating  Cost 

The  arrays  FUEL,  TIRES,  OIL  and  variable  SINDEX  are  initialized  for 
passenger  cars  and  composite  commercial  vehicles  in  BLOCK  DATA.  The  de- 
fault values  are  shown  in  Table  10.  The  user  has  the  option  of  overriding 
any  one  of  these  unit  cost  arrays  or  the  variable  SINDEX.  The  array  unit 
costs  are  used  in  converting  fuel  consumption,  tire  wear  and  oil  consump- 
tion to  cost.  The  variable  SINDEX  is  used  to  modify  the  vehicle  mainten- 
ance costs  which  are  based  on  1963  dollars. 
Switch  =  10  -  Print  Switch 

The  variable  IPRINT  is  initialized  with  the  value  1  which  produces 
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Table  9  .  Program  default  matrix  used  in  the 
initialization  of  the  simulation  matrix 


Activi 

ty 

Worksite   I 

4orksi 

te 

Worksite 

Spacing 

No. 

Type    Multipl 

ier 

Add-on 

Iterations 

Type 

Po 

rtland 

Cement  Concrete 

1 

Full  Depth 

1 

0 

100 

Random 

2 

Partial  Depth 

1 

0 

100 

Random 

3 

Full  Depth 

0 

1 

1 

Random 

4 

Lanes 

12 

0 

250 

Uniform 

5 

Partial  Depth 

3 

10 

100 

Random 

6 

Full  Depth 

10 

0 

100 

Random 

7 

Lanes 

1500 

0 

10 

Random 

Bituminous  Concrete 


1 

Full  Depth 

1 

0 

100 

Random 

2 

Lanes 

12 

0 

250 

Random 

3 

Full  Depth 

1 

0 

100 

Random 

4 

Lanes 

0 

0 

1 

Random 

5 

Lanes 

0 

0 

1 

Random 

6 

Lanes 

0 

0 

1 

Random 

7 

Lanes 

1500 

0 

10 

Random 

Composite  Pavement 


1 

Full  Depth 

10 

0 

100 

Random 

2 

Lanes 

0 

0 

1 

Random 

3 

Full  Depth 

0 

1 

1 

Random 

4 

Lanes 

12 

0 

250 

Uniform 

5 

Partial  Depth 

3 

10 

100 

Random 

6 

Lanes 

0 

0 

1 

Random 

7 

Lanes 

1500 

0 

10 

Random 
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Table  10.  Program  default  values  for 
vehicle  consumption  parameters 


Consumption 
Parameter Passenger  Cars Commercial  Vehicles 

Fuel($/Gallon)  0.40  0.30 

Oil  0.80  0.40 

Tires($/.001  inches)  0.10  0.20 

Maintenance  Index  1.5  1.5 
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maximum  program  output  printing.  The  user  can  restrict  printing  by  over- 
riding this  variable.  The  options  are  as  follows: 

1  =  Direction,  Years,  Year  Total,  Total 

2  =  Years,  Year  Total,  Total 

3  =  Year  Total  ,  Total 

4  =  Total 

The  variable  JPRINT  is  initialized  with  1.  This  causes  all  input,  scalar 
and  array  assumption  values  used  in  the  program  to  be  printed.  A  value 
of  2  supresses  this  print. 
Switch  =  11  -  Pavement  Lane  Width 

The  variable  WIDTH  is  initialized  at  12  feet.  It  can  be  overridden 
by  the  user. 
Switch  =  12  -  Income  Level 

The  variable  INC  is  initialized  as  4  and  is  used  in  routine  VTIME 
which  creates  the  value  of  time  array.  It  can  be  overridden  by  the  user. 
Switch  =  13  -  Speeds  for  Walking  and  Traveling  on  Roadway 

The  variables  WALK  and  TCMOVE  are  initialized  at  2  mph  and  20  mph. 
These  are  used  in  the  subroutine  MAINT  during  the  simulation  of  roadway 
occupancy.  They  can  together  be  overridden  by  the  user. 
Switch  =  14  -  Terminal  PSI  Value 

The  variable  PSIRS  is  initialized  at  2.0.  This  is  used  in  the 
routine  AWORKL  to  determine  resurfacing  requirements.  The  resurfacing 
requirement  also  can  be  triggered  by  the  pavement  systems  program  that 
this  program  "EAROMAR"  was  designed  to  support.  The  user  has  the  op- 
tion to  change  PSIRS. 
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Switch  =  15  -  Detour  Parameters 

The  variable  DETOUR  is  initialized  with  the  default  values  shown  in 
Table  11.  The  user  can  specify  through  optional  inputs  a  completely  new 
set  of  detour  descriptors.  The  detour  condition  occurs  in  the  program 
anytime  all  lanes  are  closed  and  no  shoulders  are  available.  The  varia- 
bles included  in  detour  are  the  following: 

1  =  The  distance  between  freeway  interchanges  which  is  used  to 
evaluate  normal  motorist  operation  conditions 

2  =  The  detour  length  which  is  the  influence  zone  for  the  free- 
way traffic  when  a  detour  is  used 

3  =  Detour  speed  limit  which  is  needed  in  the  development  of  a 
speed  matrix  for  operation  on  the  detour 

4  =  Detour  volume  which  must  be  added  to  the  freeway  volume 
before  an  analysis  of  the  operation  on  the  detour  can  be  made 

5  =  Detour  capacity  which  influences  the  speed  matrix  deter- 
mined for  the  detour  and  the  operation  on  the  detour 

6  =  Average  composite  stop  cycles  on  the  detour  used  in  de- 
termining speed  change  cost  for  operation  on ^the  detour 

7  =  Direction  lanes  on  the  detour  needed  to  convert  capacity 
to  lane  capacity  in  the  determination  of  the  speed  matrix 

Switch  =  16  -  Design  Life 

Two  design  life  values  which  can  be  overridden  are  used  in  the 

program.  The  variable  DLIFE  specify  the  design  life  of  the  initial 

pavement.  The  variable  RLIFE  specifies  the  design  life  of  a  resurfaced 

pavement.  The  design  life  controls  resurfacing  cycles  when  not  overridden 

by  a  pavement  systems  override.  The  default  value  assigned  in  the  program 

are  20  years  for  DLIFE  and  10  years  for  RLIFE. 
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Table  11.  Program  default  values  used  in 
variable  DET0UR(7) 


Subscn 

pt 

Description 

Value 

Units 

1 

Interchange  Spacing 

2.00 

Mi  1  es 

2 

Detour  Length 

2.60 

Miles 

3 

Speed  Limit 

45.00 

MPH 

4 

Traffic  Volume 

20000 

ADT 

5 

Capacity 

2400 

Vehicles 

6 

Average  Stops  all 
Vehicles 

.80 

Stops 

7 

Number   of  Directional 
Lanes 

2 

Lanes 

65 


Switch  =  17  -  Activity  Standards 

The  activity  standards  are  used  in  the  evaluation  of  the  cost  of  main- 
tenance and  in  the  determination  of  roadway  occupancy  time.  The  variable 
has  three  components  for  each  activity.  These  are  as  follows: 

1  =  Labor  and  equipment  cost  per  hour  of  crew  operation 

2  =  Material  costs  per  activity  workload  unit 

3  =  The  productivity  of  the  crew  in  performing  the  activity 
in  terms  of  workload  units  per  hour. 

Switch  =  18  -  Capacities 

The  array  CAP  is  based  on  freeway  type  and  the  defaults  are  obtained 
from  array  CCAP. 

The  user  at  his  option  may  override  the  capacity  values  for  a  given 
freeway  type.  The  subscripts  used  in  defining  the  closure  category 
applicable  varies  with  the  freeway  type.  On  an  eight  lane  freeway  the 
following  categories  are  applicable: 

1  -  CAP(l)  =  One  lane  closed 

2  -  CAP(2)  =  Two  lanes  closed 

3  -  CAP(3)  =  Three  lanes  closed 

4  -  CAP(4)  =  Shoulder 

5  -  CAP (5)  =  Freeway 

Switch  =  19  -  Freeway  Design  Speed 

I 

The  variable  DSPEED  is  initialized  at  70  mph.  It  is  used  in  the 
routine  SPEED  which  resides  in  subroutine  INITAL  as  part  of  the  algorithm 
generating  a  speed  matrix  which  is  used  in  the  development  of  motorist 
impacts  in  subroutine  MOTOR.  It  can  be  overridden  by  the  user. 
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Switch  =  20  -  Average  Accident  Cost 

The  variable  AACOST  is  initialized  with  850  dollars  and  can  be 
overridden  by  the  user.  It  is  used  in  subroutine  MOTOR  to  factor 
accidents  to  accident  costs. 
Switch  =  21  -  Vehicle  Occupancy 

The  variables  OCWORK,  work  trip  vehicle  occupant  and  OCSCHL, 
school  trip  vehicle  occupant,  are  initialized  with  1.4  and  2.5  respectively. 
The  user  can  override  these  variables  which  are  used  in  the  evaluation  of 
the  value  of  time  for  work  trips  and  school  trips. 
Switch  =  22  -  Commercial  Value  of  Time 

The  variable  COMVOT  is  initialized  with  $8.50  per  hour  and  is  used 
in  evaluating  the  loss  time  for  commercial  vehicles.  The  user  can  over- 
ride this  variable. 
Switch  =  23  -  Speed  Limit 

The  array  SLIMIT,  which  can  be  overridden  by  the  user,  is  assigned 
default  values  and  has  the  same  subscript  constraints  relating  to  closure 
category  applicable  to  capacity.  For  a  six-lane  freeway,  these  are  as 
follows: 

1  -  SLIMIT(l)  =  One  lane  closed 

2  -  SLIMIT(2)  =  Two  lanes  closed 

3  -  SLIMIT(3)  =  Detour 

4  -  SLIMIT(4)  =  Freeway 

The  defaults  used  in  the  program  apply  to  8-1 ane  freeways  and  in  the  data 

initialization  statement,  SLIMIT(l-5)  is  assigned  60  mph.  In  the  program, 

the  speed  limit  assigned  to  a  detour  is  reassigned  to  the  directional  lane 

position  for  the  variable,  i .e. ,  SLIMIT(LANES)  =  DET0UR(3).  For  a  six-lane 

freeway,  LANES  =  3.  If  DET0UR(3)  =  35  mph,  then  SLIMIT(3)  =  35  mph. 
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General  Flow  for 
Routine  OVER  in 
Program  'EAROMAR' 


OVER 


Optional  input 
switch  IP 


Yes 


1.  Traffic  Distribution 


2.  Trip  Purpose  Distribution 


3.  Direction 


4.  Occupancy  Constraints 


5.  Override  Array 


6.  Alignment 


7.  Vehicles 


8.  Simulation 


9.  Operation  Unit  Costs 


10.  Print  Switch 


11.  Lane  Width 


12.  Income  Level 


13.  Occupancy  Moves 


14.  Terminal  PSI 


15.  Detour  Parameter 


16.  Design  Life 


17.  Activities  Standard 


18.  Capacities 


19.  Design  Speed 


20.  Ave.  Accident  Cost 


21.  Vehicle  Occupancy 


22.  Commercial  Time  Value 


23.  Speed  Limits 
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SUBROUTINE  INITAL 
ROUTINE:   RANDOM 

Purpose 

This  suoroutine  creates  four  arrays  needed  for  the  simulation  of 
roadway  occupancy  by  maintenance  crews  in  the  subroutine  MAI  NT.  The 
four  arrays  areas  follows: 

1.  PATCHF,  1000  random  size  PCC  or  bituminous  patches 

2.  PATCHP,  1000  random  size  partial  depth  PCC  patches 

3.  RLOC,  1000  random  numbers  in  ascending  order  from  0  to  1 

4.  SWORK,  the  simulation  workload  for  each  of  seven  activities 

Description 

To  execute  this  routine,  the  pavement  type,  pavement  lane  width, 
spacing  between  worksites,  and  the  array  SIM  are  needed.  The  routine  is 
executed  one  time  for  any  analysis  period. 

The  routine  generates  pairs  of  random  numbers  (X,Y)  based  on  an 
initial  odd  seed  number  of  7.  The  first  random  number  is  multiplied  by 
the  distance  between  concrete  patches  specified  to  the  program  (distance 
between  worksites).  For  partial  depth  patches,  the  random  number  is 
multiplied  by  a  maximum  area  of  40  square  feet.  The  length  or  area  thus 
determined  is  substituted  into  a  density  function  and  the  predicted 
value  compared  with  the  second  random  number  to  determine  if  it  falls 
under  either  of  the  density  function  curves. 

The  first  density  function  describes  the  distribution  of  full  depth 
Portland  cement  concrete  patch  lengths  and  is  as  follows: 

F(y)  =  .000179((.75X)V-^^^) 
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The  second  density  function  describes  the  distribution  of  partial 
depth  Portland  cement  patch  size  areas  and  is  as  follows: 

F(y)  =  2.2(.75X)^-^(e"-''^^)  +  .1 

Each  time  a  random  pair  of  numbers  is  accepted  for  the  full  depth 
patch  it  is  factored  and  placed  in  the  array  PATCHF.  For  portland  cement 
concrete  pavement,  the  factor  is  the  pavement  lane  width  thereby  pro- 
ducing a  patch  in  square  yards  which  averages  four  yards  long  and  the 
width  of  a  pavement  lane.  For  the  bituminous  pavement,  the  length  is 
factored  by  ten  producing  an  average  patch  in  square  yards  which  is  40 
yards  long  and  the  width  of  the  pavement  lane.  The  partial  depth 
patches  are  placed  directly  in  the  array  PATCHP  as  they  are  acceptable. 

The  process  is  iterated  until  1000  full  size  and  1000  partial  depth 
patches  have  been  established. 

A  random  number  is  placed  in  the  array  RLOC  during  the  first  1000 
iterations  of  the  process.  Following  the  completion  of  the  iteration 
process,  the  1000  random  numbers  in  the  array  RLOC  are  sorted  in  ascending 
order. 

Finally,  the  routine  establishes  the  magnitude  of  the  lane  mile  work- 
load which  will  be  used  in  the  simulation  subroutine  MAINT  for  each  activity, 
The  array  SIM  has  the  five  following  descriptors  for  each  activity:  , 

A.  Type  of  worksite  switch  is  either 

1.  Ful 1  size  patch 

2.  Partial  size  patch 

3.  Lanes 

B.  Worksite  Factor 

C.  Worksite  Add  on 

D.  Simulation  iterations 
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E.  Spacing  parameter  switch 

1.  Random 

2.  Uniform 

The  worksite  switch  determines  how  the  simulation  workload  is  established, 
The  three  possibilities  are  as  follows: 
Where 

A,  =  Full  size  patch  size 

Ap  =  Partial  depth  patch  size 

A^  =  Number  of  lanes  closed 

B  =  Worksite  size  multiplier 

C  =  Worksite  size  add  on 

D  =  Number  of  simulation  iterations 

SW  =  Simulation  Workload 

Switch  =  1 

i  =  D 
SW  =  E  (Aw.v  X  B+C) 
i  =  l  ^^'^' 

Switch  =  2 

i  =  D 
SW  =  E  il\^(.^   X  B+C) 
i=l  ^^^^ 


Switch 


SW  =  (A3  X  B+C)  X  D 
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General  Flow  for  Routine  RANDOM  in  Program  'EAROMAR' 


RANDOM 


No 


Generate  two 
random  numbers 


VW' 


If  full  size  patch 
is  acceptable 
place  in  Array 
and  increment  NI 


I 


If  partial  size  patch 
is  acceptable  place 
in  Array  and 
increment  N2 


1 


Hold  1000  random 
numbers 


f  SPEED  W 


Yes 


Sort  1000  random 
numbers  in  ascending 
order 


i 


Compute  a  simulation 

workload  for  each 

activity 
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SUBROUTINE  INITAL 
ROUTINE:  SPEED 

This  routine  creates  the  array  SP  which  identifies  to  the  subroutine 
MOTOR  the  speed  to  associate  with  a  computed  volume-capacity  ratio  for 
the  freeway,  a  lane  closure,  or  a  detour. 

Description 

The  execution  of  this  routine  requires  the  freeway  design  speed  and 
the  speed  limit  and  hourly  capacity  for  the  freeway,  each  lane  closure 
and  the  detour. 

The  lane  capacity  is  determined  in  the  program  by  dividing  the 
assigned  capacity  by  available  lanes. 

The  following  algorithm  is  used  to  establish  a  speed  matrix  for  the 
freeway,  detour  and  each  lane  closure  category: 
Given 

DS  =  Freeway  Design  Speed 
SL  =  Category  Speed  Limit 
C    =  Category  Capacity  (1000 's) 
L     =  Lanes  open  to  motorist 
V^  =  A  volume  in  1000 's 
Find  S     =  Speed  in  miles  per  hour  for  a  given  v/c  ratio 

1.  SI     =   .9DS 

2.  S2     =  12C  +   .SC'^'^^ 

3.  S3     =  SI  -  S2 

4.  S4     =   (.4V  -   10)(V/C) 

5.  S5     =  S3  -  S4,S5  >  0 
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6.  S6     =   (V/C)^^(S5) 

7.  S^     =  SI  -  S4  -  S6 

d 

8.  Sj     =  SL  X   .9-3.6  V/C 

9.  S       =  MINIMUM  (S^,S^) 

This  algorithm  is  iterated  through  eleven  uniform  increments  of 
the  volume-capacity  ratios  starting  at  zero  and  going  to  1. 
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General  Flow  for  Routine  SPEED  in  Program  'EAROMAR' 


SPEED 


J 


Do  for  all 
analysis  conditions 
IC=1,  LANES+1 


I 


Do  for  a  range  of 
-^volume  capacity  ratios 
1=1,11 


I 


M=lANES-IC 


Compute  speed  based 

on  design  &  capacity 

for  freeway 


Compute  speed  based 

on  design  &  capacity 

for  lane  closures 


Compute  speed  based 

on  design  &  capacity 

for  detour 


Compute  speed  based 
on  speed  1 imit 
for  freeway 


Compute  speed  based 

on  speed  limit 

for  lane  closures 


Compute  speed  based 

on  speed  limit 

for  detour 


Select  and  hold 
minimum  speed 


^    INOCC  \ 
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SUBROUTINE  INITAL 
ROUTINE:  INOCC 

Purpose 

This   routine  creates  the  array  IHOUR  which  identifies  to  the  routine 
AVAIL  in  subroutine  MAINT  the  hours  when  the  roadway  can  be  occupied  by 
work  crews. 

Description 

The  execution  of  this  routine  requires  the  array  INOCC  which  esta- 
blishes the  roadway  occupying  starting  hour  and  finishing  hour  interval 
for  each  activity.     Each  activity  is  addressed  in  turn  and  the  array 
INOCC  examined  to  determine  if  a  starting  hour  and  finishing  hour  inter- 
val has  been  specified  for  the  activity.     When  no  activity  is  present, 
the  default  interval   associated  with  activity  number  ten  are  used.     The 
array  IHOUR  has  been  initialized  with  zeroes.     Each  hour  of  occupancy 
permitted  for  each  activity  is   valued  as   unity  (1)   in  the  array.     There- 
fore the  resulting  array  has  associated  with  each  of  24  hours  for  each 
activity  either  a  zero  or  a  one.     The  crew  can  ocQupy  the  roadway  only 
during  the  hours  having  a  one. 

A  24  hour  occupancy  interval   is  established  by  assigning  the  variable 
for  crew  hours   (0VER(12,IA) )  a  value  of  24.     This  causes  the  IHOUR  array 
to  have  I's  placed  in  each  of  the  array's  24  positions. 
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General  Flow  for  Routine  INOCC  in  Program  'EAROMAR' 
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SUBROUTINE   INITAL 
ROUTINE:      RECON 

Purpose 

This  routine  establishes  a  traffic  array  which  is  used  throughout 
the  program  "EAROMAR".     The  traffic  array  consists  of  a  base  year  and 
yearly  add-on  increment  which  describes  the  hourly  distribution  of  free- 
way traffic  by  direction  for  the  following  seven  trip  purposes: 

1.  Work 

2.  Personal   business 

3.  Social-recreational 

4.  School 

5.  Vacation 

6.  Commercial 

7.  All   traffic 

In  this  routine,  the  initial  and  final  volumes,  the  percentage  of 
commercial  vehicles,  and  the  A.M.  peak  direction  splits  also  are  con- 
verted to  base  year  and  yearly  increment,  respectively. 

Description 

The  execution  of  this  program  requires  the  arrays  PCTADT  and  PERCNT 
as  initialized  or  overridden  by  the  program  user  in  routine  OVER.  Re- 
gardless of  the  percentage  of  commercial  volume  reflected  by  the  array 
PERCNT,  it  is  replaced  by  the  required  input  variable  TRUCKS  which  defines 
percent  commercial.  This  reconciliation  is  achieved  by  forcing  all 
passenger  car  trips  to  equal  the  difference  between  the  percentage  in 
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TRUCKS  and  100  percent.     The  ratio  of  the  new  passenger  portion  to 
the  original   passenger  portion  creates  a  factor  which  is  applied  to 
the  passenger  trip  purposes   in  the  array  PCTADT. 

The  routine  tesfe  to  determine  if  the  program  user  has  overridden 
any  portion  of  the  array  PCTADT.     Each  user  overridden  portion  identi- 
fied is  checked  and  reconciled  to  100%.     Each  of  the  individual   trip 
purpose  100%  distributions   in  the  array  PCTADT  is  factored  by  the  appro- 
priate percentage  in  the  array  PERCNT.      If  the   "all    traffic"  portion 
of  the  array  PCTADT  is  input,   then  all    trip  purposes  are  reconciled  to 
the  "all   traffic"  value  for  each  hour. 

If  the  "all   traffic"  portion  of  the  array  PCTADT  is  not  input, 
this  portion  is   created  by  summing  the  individual   trip  purpose  distri- 
butions for  each  hour. 

When  the  directional  balancing  switch  is  specified  in  routine 
OVER  by  setting  IDIR=3,  the  distributions  for  both  directions  are  re- 
placed by  the  average  distribution. 

Once  the  hourly  distributions  for  both  directions  have  been  created, 
the  individual   trip  purpose  distribution  portion  of  the  array  PCTADT  is 
converted  to  hourly  distributions  between  the  different  trip  purposes. 
The  daily  distribution  of  tra:ffic  is  held  in  the  "all   traffic"  portion. 

The  final   step  of  this  routine  is  to  convert  the  initial   and  final 
year  portions  of  the  arrays  PCTADT,  VOLUME,  TRUCKS,  and  SPLIT  to  base 
year  and  yearly  increment,  respectively. 
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General   Flow  for  Routine  RE  CON 
in  Program  'EAROMAR' 
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RECON  cont'd. 
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RECON  cont'd. 
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SUBROUTINE  OPPARA 

Purpose 

This  subroutine  contains  the  two  routines  VTIME  and  OPCOST. 

Description 

The  routines  are  combined  to  reduce  overlay  requirements.  The 
routine  VTIME  generates  a  value  of  time  matrix  and  OPCOST  generates 
a  vehicle  operation  cost  matrix.  Both  are  described  in  detail  elsewhere. 
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General  Flow  for  Subroutine  OPPARA  in  Program  'EAROMAR' 
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SUBROUTINE  OPPARA 
ROUTINE:     VTIME 

Purpose 

This  routine  establishes  an  array,  VTRATE,  wnich  is  used  in 
routine  TIME  of  subroutine  MOTOR.  This  array  contains  the  hourly 
values  of  time  loss  from  1  to  40  minutes  for  the  following  five 
passenger  car  trip  purposes: 

1.  Work 

2.  Personal  Dusiness 

3.  Social -recreational 

4.  School 

5.  Vacation 

Description 

Tne  execution  of  this  program  requires  the  initialization  of 
the  average  income  level   of  a  motorist,   INC,  with  any  one  of  the 
following  switches : 

1.  Under  $3999/yr. 

2.  $4000-5, 999/yr. 

3.  $6000-7, 999/yr. 

4.  $8000-9, 999/yr. 

5.  $10,000-ll,999/yr. 

6.  $12, 000-14, 999/yr. 

7.  $15  ,000-19, 999/yr. 

8.  Over  $20,000/yr. 
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The  values  of  time  between  five  and  fourteen  minutes  are  valued 
using  the  following  equations: 

BEN     =  bg  +  b^At  +  b^lAt 

PO       =  1.0/(1.0  +  EXP(A     X  BEN)) 

BAVG  =  (1.0  -  PO)   X  (BElM  +  Ln(  ^^^^°V(  1-PO)  )/A 

Where 

b^,  b^,  bo  and  A     are  constants 
0       12  c 

for  each  trip  purpose  for  the  time  intervals   (5  <  At  <  15  and 

At   ^    15) 

BEN  -  is  the  benefit  of  the  50th  percentile  motorist 

PO     -  is  the  probability  of  a  motorist  having  zero  benefits 

BAVG  -  is  the  average  benefit  of  all  motorists   in  cents 
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General  Flow  for  Routine  VTIME 
in  Program  'EAROMAR' 
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VTIME  cont'd. 
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SUBROUTINE  OPPARA 
ROUTINE:     OPCOST 

Purpose 

This  routine  creates  the  operation  cost  array  OCOSTS  to  be  used 
in  the  subroutine  MOTOR  in  costing  motorist  operation  cost. 

Description 

The  execution  of  the  routine  requires  the  roadway  alignment 
array  ALIGN  and  the  vehicle  description  array  WEIGHT. 

The  routine  makes  use  of  a  series  of  models  which  predict  fuel 
consumption,  tire  wear,  oil  consumption,  vehicle  maintenance,  and 
depreciation  as  a  function  of  vehicle  operational  speed  and  roadway 
alignment  for  a  base  weight  passenger  vehicle.  These  consumption 
parameters  are  placed  in  the  array  OCOST. 

A  second  series  of  models  factors  the  base  vehicle  operation 
parameters  to  reflect  the  vehicles  described  in  the  vehicle  des- 
cription array  WEIGHT.  Then  the  unit  costs  arrays  FUEL,  TIRES,  OIL 
and  SENDEX  are  used  to  convert  the  consumption  units  developed  in 
these  models  to  cost. 

The  array  OCOSTS  which  is  created  has  operation  costs  for  unity 
speeds  1  through  65  for  passenger  cars  and  for  a  single  composite 
commercial  vehicle. 

The  models  used  in  this  routine  are  the  following  where 
A  =  model  intercept 
B  =  model  coefficient  or  variable 
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C     =  model    coefficient  or  variable 

S     =  speed 

FS  =  float  speed 

G     =  grade  in  percent 

H     =  curvature  in  degrees 

W     =  vehicle  weight  in  kips 

RW  =  vehicle  weight  factor 

CP  =  consumption  quantity  per  vehicle  hour 

U     =  unit  cost 

OCOST  (     )     =     operational   costs 
Fuel    Consumption  in  Gallons  per  Hour 

Positive  Grade 

A     =  -.45  +   .0278(5) 

B     =  .0348  +   .0214(Ln(S)) 

CP  =  e^^  ""  ^^^ 

Negative  Grade 

FS  =  3  +  7G 

1^    ^  ^(-.4844  +  .0285(S)) 

3  ^  g(-.4884  +  .0285(FS)) 

C  =  1/(1.61  +  .1(S)) 

CP  =  C  where  S  ^  FS 

CP  =  A  -  B  +  C  where  S  >  FS 
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Curvature 

A     = 

-.483 

-      . 

087(lnH) 

B     = 

e(-3- 

562 

+   .044(H)) 

CP  = 

,(A^ 

BS) 

Weight 

A     =     l/(.46  +   .0344(5)   -   .00031(5^)) 

B     =     l/(.78+   .0437(5)   -   .00047(5^)) 
RW=     e^-A+^LnW) 

OCOST(FUEL)     =     RW  X  CP  X  U 

Tire  Consumption  in   .001 's  inch  of  wear  per  hour 

Positive  Grade 

A     =     -8.26  +   .095(G) 

B     =     2.23  -   .015(G) 
Cp=     e^A+^Ln5) 

Negative  Grade 

A    =     -8.26  +   .2(G) 

B     =     2.23  -   .07(G) 

CP  =  e^^  ^   ^^"^^ 
Curvature 

A  =  -3.1  +  .59LnH 

6  =  .077  +  .0023(H) 

CP  =  e^A  '   ^^) 
Weight 

RW  =  .76  +  .061(W) 
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ocost(t:res)    =    RW  x  CP  x  u 
Oil   Consumption  in  quarts  per  hour 

Grade 

A  =  -3.414  -  .0184(G) 
b  =  .0242  +  .00142(G) 
CP=     e^^"^^^ 

Weight 

A     =     .930  +   .003(5) 
B     =     -.0149  +   .0004(S) 
RW  =     1/(A  +  BW)  where  W  ^  50 
RW  =     3W/(30  +  S)  where  W  ^  50 
OCOST(OIL)      =     RW  X  CP   X  U 
Maintenance  Cost 

Positive  Grade 

A     =     5.828  -    .014(G) 
B     =     1.278  +   .001(G) 

Negative  Grade 

A  =  5.828  -  .0285(G) 

b  =  1.278  -  .011(G) 
Cp=  ^(-A^BLnS) 

Weight 

A  =  .12  +  .0084(ABS(S-20)) 
B  =   .315  +  .0021(ABS(S-20)) 
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C  =  .00438  +  .000023(ABS(S-20)) 
RW  =  -A  +  BW  -  CW^  where  W  ^  50 

RW  =  4.68  +  .039(ABS(S-20))  +  (.0772W  -  50)  where  W  ^  50 
OCOST(MAI.nIT)  =  RW  X  CP  X  U 
Depreciation 

B  =  1974(S)-^^^ 
C  =  47.5  -  3.88(LnB) 
CP  =  S/(B  X  C) 
Weight 

RW  =     e--^^^  "   '^^^^^ 
OCOST(DEPREC)     =     RW  x  CP  x  U 
Once  all   the  costs  for  fuel,  tires,  oil,  maintenance  and  deprecia- 
tion have  been  established  for  passenger  cars  and  a  composite  commercial 
vehicle  they  are  combined  and  placed  into  a  single  costs  array  called 
OCOSTS. 

OCOSTS(PC)   =  OCOST(Fuel)  +  OCOST(Tires)  +  OCOST(Oil)  + 
OCOST(Maint)  +  OCOST(Deprec) 

OCOSTS(Coninercial)  =  OCOST(Fuel)  +  OCOST(Tires)  +  OCOST(Oil)  + 
OCOST(Maint)  +  OCOST(Deprec) 

The  OCOSTS  array  is  dimensioned  to  have  the  operation  costs  per 
hour  for  the  65  speed  increments  1  m.p.h.   through  65  m.p.h. 
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General   Flow  for  Routine  OPCOST  in  Program   'EAROMAR' 
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OPCOST  cont'd. 
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OPCOST  cont'd. 


Combine  fuel ,  tire, 
oil ,  matntenance  and 
depreciation  cost  for 
passenger  cars 


Combine  fuel ,  tire, 
oil ,  maintenance  and 
depreciation  cost  for 
the  composite  commercial 
vehicle 


RETURN 
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SUBROUTINE  RPRINT 

Purpose 

This  subroutine  prints  outputs  on  8  pages  of  data  which  are  used  in 
the  economic  analysis  of  roadway  occupancy. 

Description 

All  of  the  required  input,  optional  input  and  program  defaults 
are  combined  to  produce  analysis  constraints  and  program  costs  arrays. 
The  subroutine  RPRINT  lists  these  constraints  and  arrays  in  an  eight- 
page  printout.  A  default  of  one  is  assigned  to  JPRINT  to  create  this 
output.  The  user  has  the  option  of  suppressing  this  print  in  routine 
of  subroutine  INITAL. 

The  output  consists  of  the  following  information,  by  page: 
Page  1  -  A  7-activity  by  24-hour  matrix  showing  the  available 
roadway  occupancy  hours  as  ones  and  the  unavailable 
hours  as  zeroes. 
Page  2  -  A  sample  of  50  full -depth  patches,  partial  depth  patches 
and  random  numbers  generated  by  the  routine  RANDOM  in 
subroutine  INITAL. 
Page  3  -  A  list  of  the  pavement  design  and  traffic  data  which 

was  either  assumed  or  specified  to  the  program. 
Page  4  -  A  speed  matrix  for  the  eleven  increments  of  the  volume- 
capacity  ratio  for  each  closure  category  and  the  freeway. 
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Page  5  -  A  base  year  and  add-on  matrix  of  tlie  Kourly  distribution 
of  traffic  by  direction  and  trip  purpose. 

Page  6  -  A  description  of  the  workload  and  simulation  constraints 
placed  on  each  of  seven  work  activities  together  with  a 
description  of  the  activity  standard  data  used  by  the 
program. 

Page  7  -  A  matrix  of  the  hourly  operation  costs  for  passenger  cars 
and  commercial  vehicles  generated  by  the  program  for  64 
increments  of  speed. 

Page  8  -  A  matrix  of  the  hourly  value  of  time  for  five  trip  pur- 
poses generated  by  the  program  for  40  increments  of  time 
saved. 
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General  Flow  for  Subroutine  RPRINT  in  Program  'EAROMAR 
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SUBROUTINE  YEAR 

Purpose 

This  subroutine  is   used  to  control   the  analysis  process.     The 
routines  AWORKL  and  PRINT  reside  in  the  subroutine.     AWORKL ,  which 
generates  annual   activity  workload  and  PRINT  which  outputs  the  ana- 
lysis  results  are  each  described  in  detail   elsewhere. 

Each  year's  analysis  by  direction  is  executed  by  YEAR.     Yearly 
traffic  is  established  and  the  two  subroutines  MAINT  and  MOTOR  are 
called. 

Description 

The  subroutine  YEAR  is  designed  to  interface  with  a  pavement 
design  systems  program.     Transfers  of  either  18-kip  axle  loadings 
or  present  serviceability  index  values  will   suppress  the  normal 
programming  process  for  determining  these  two  values.     The  present 
serviceability  value  controls  resurfacing  cycles. 

The  hourly  traffic  array  PCTADT,  the  volume  array  VOLUME,  the 
directional   split  SPLIT  and  the  commercial   vehicle  percentage  of 
total   traffic  TRUCKS  are  all   structured  to  be  incremented  each  year. 
They  all   have  a  base  level    value  and  add-on  value.      Each  time  a  new 
year  is   iterated,  the  add-on  is  added  to  the  base  value  to  create 
an  updated  value  for  the  variable. 

The  direction  loop  is  controlled  in  subroutine  YEAR.     For  each 
direction,  at  each  year's    iteration,  a  normal   hourly  volume  is  esta- 
blished for  the  freeway  and  the  detour.     The  volumes  are  used  to 

100 


create  normal  hourly  speeds  for  the  freeway  and  the  detour.  Once 
the  hourly  volume  has  been  determined  an  average  highway  speed  is 
determined  for  the  freeway  and  the  detour.  Speeds  are  a  function 
of  the  hourly  volume-capacity  ratio  and  are  obtained  from  the  array  SP, 
The  subroutine  then  calls  MAINT  and  then  MOTOR  where  the  economic 
analysis  of  maintenance  costs  and  motorist  impacts   is  performed. 
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General    Flow  for  Subroutine  YEAR  in  Program   'EAROMAR' 
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YEAR  cont'd. 
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SUBROUTINE  YEAR 
ROUTINE:     AWORKL 

Purpose 

This   routine  through  a  series  of  workload  models  determines  the 
annual  workload  for  all    activities  associated  with  a  given  pavement 
design. 

Description 

The  execution  of  this   routine  requires  the  following  arrays  and 
variables  which   are  generated  in   subroutine   INITAL: 

1.  The  array  OVER  which  provides   information  on  workload  factors, 
or  substitutions,  work  location  spacing  and  maintenance  level 

2.  The  arrays  VOLUME  and  TRUCKS  which  permit  the  computation  of 
annual   18-kip  axle  loadings 

3.  The  pavement  design  life  variables  DLIFE  and  RLIFE 

4.  The  age  limited  18-kip  annual   axle  loading  rate  ARHO 

5.  The  following  pavement  description  variables: 

A.  'WIDTH'   =  Pavement  lane  width  in  feet 

B.  The  pavement  type    'ITYPE'   where 

1  =  Concrete 

2  =  Bituminous 

3  =  ComDOslte 

The  subroutine  YEAR  is  designed  to  interface  with  a  pavement  systems 
program  which  can  transfer  information  controlling  pavement  resurfacing. 
The  options   from  the  calling  pavement  systems  program  would  be  a  PSI   value 
or  the  accumulated  18-kip  axle  loadings.     If  a  pavement  systems  program 
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identifies  resurfacing  requirements,  it  must  be  accomplished  through 
the  transfer  of  a  PSI  value  equal    to  a  terminal  PSI    value  which  is 
input  by  the  user  if  the  default  assumption  is  not  acceptable. 

The  transfer  of  accumulated  18-kip  axles  would  negate  the  need  to 
determine  this   value  in  the  routine.     If  the  accumulated  18-kip  axle 
loading  is  not  transferred,  the  program  computes  and  accumulates  the 
18-kip  axles   using  the  following  model; 
VOLUME     —     Annual    ADT 
TRUCKS     --     Percent  Commercial 
AAXLES     --     Accumulated  18-kip  axle  loadings   in  millions 

(composite  truck  axle  loading  in  18-kip  equivalents) 
.735     --     Composite  18-kip  axles  for  each  commercial   vehicle 
ARHO     --     Annual   rate  of  18-kip  axle  loadings  needed  to 

reach  1.5  PSI   in  20  years  based  on  AASHO  equations 
AAXLES     =     AAXLES  +   (VOLUME/2)   x  (TRUCKS)/100  x  365  x   .735 
The  accumulated  18-kip  axles  AAXLES  are  compared  with  (ARHO  x  AGE). 
If  the  AAXLES  axles  exceeds   the  AASHO  rate,  the  pavement  age  is  increased 
to  satisfy  the  expression  AAXLES  =  ARHO  x  AGE. 

If  the  PSI   is  not  transferred  from  a  pavement  system  program  it  is 
computed  as   follows : 

PSI.     =     Initial   pavement  present  serviceability  index 
PLIFE     =     Pavement  design  life 
AGE     =     Index  age  equivalent 
PSI     =     Present  Serviceability  Index 
PSI     =     PSI.    -,  (((PSI.    -    1.5)/DLIF£)    X  AGE) 
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Once  the  PSI  has  been  established,  the  age  is  re-established  for  use 
in  the  workload  models  as  follows: 

AGE  =  20  *(PSI.  -  PSI)/(PSI.  -  1.5) 
The  PSI  value  established  for  the  year  is  compared  with  the  ter- 
minal PSI  value  and  if  less  or  equal  to  it,  the  maintenance  level  in- 
dicator for  the  resurfacing  activity  is  set  equal  to  1  which  causes  a 
resurfacing  workload  to  be  computed.  A  resurfaced  portland  cement  con- 
crete pavement  is  converted  .to  a  composite  pavement  type  following  the 
resurfacing. 

A  unique  set  of  workload  models  exist  for  each  pavement  type  in  the 
routine.  A  workload  is  computed  for  each  activity  that  does  not  have  a 
maintenance  level  of  zero.  The  following  models  are  used  for  the  in- 
dicated pavement  types  and  activities: 
A  =  Equivalent  pavement  age 
F  =  Workload  Factor  input 
L  =  Lane  Width  in  feet  through  OVER 
ML  =  Maintenance  Level 
W.  =  Workload  by  activity  number 
S  =  Workload  Spacing  in  feet 
Y  =  Pavement  age  in  years 
Portland  Cement  Concrete  Pavement 
Full  Depth  Concrete  Patching: 

W,  =  F  X  34  X  (l/l.i(A-10)/l-25)) 
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Partial    Depth  Concrete  Patching: 
Wp  =     F  X  W^  where  VI-    <  I 
Wp  =     F  X  1     where  W^   ^   1 

Blowups: 

W^  =   .005  X  (A-4)   X  F  where  A  ^  5  or  A  ^  25 

W^  =     0  where  A  ^  5  or  A  ^  25 
Joint  Seal ing: 

W^  =     F  X  (5280  X  L  X  ML)/S 
Mudjacking: 

W^  =     .25(.5y)V-^^ 
Other: 

W^  =     Constant  workload  supplied  by  the  program  user  in  tne 
array  OVER 
Resurfacing: 

W-,  =     586.67  X  L  X  F 

Bituminous  Concrete  Pavement 

Bituminous  Concrete  Patching: 

Wi=     Fx  1100/(1  +  e-('^-10)/l-lS') 
Crack  Sealing: 

W^  =  F  X  1100/(1  +  e-"^-10)/l-lS') 


1C7 


Base  and  Surface  Repair: 

W  =  Fx5/(l+e-^A-10)/l-l^)) 


3 
Other: 

W._g  =     Constant  workload  supplied  by  the  program  user  in 
the  array  OVER 
Overlay: 

W7  =     586.67  X  L  X  F 
Composite  Pavement 
Patching: 

Wj  =     F  X  110/(1  +  e-"^-l°'/l-l«)) 
Blowup: 

W^  =     .005  X  (A-4)   X  F  where  A  ^  5  or  A  <  25 

W^  =  0  where  A  ^  5  or  A  ^  25 
Crack  Sealing: 

W^  =  F  X  1000/Cl  +  e-(*-10'/l-16') 
Mud jacking: 


W5  =  .25(.5y)V-^^ 
Other: 

W  W 
Over! ay : 

W7  =  586.67  X  L  X  F 
Any  time  the  pavement  is  resurfaced,  the  resurfaced  age  is  held  to 
later  adjust  pavement  age  to  reflect  the  resurfaced  pavement. 
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General  Flow  for  Routine  AWORKL  in  Program  'EAROMAR' 


AWORKL 


Establish  or  get 
18-kip  axles  and  psi 


Establish  pavement  age 
for  analysis 


Determine  if  pavement 
will  be  resurfaced 
in  year 
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AWORKL  cont'd. 
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SUBROUTINE  YEAR 
ROUTINE:      PRINT 

Purpose 

This  routine  uses  the  directional  cost  array,  COSTS,  to  compute 
the  total  cost  for  each  activity  by  closure  type,  the  total  cost  of 
all  activities  for  each  closure  type,  the  total  costs  for  the  year, 
and  the  minimum  yearly  cost  for  each  cost  item.  In  addition,  this 
routine  discounts  the  minimum  cost  and  accumulates  the  minimum  cost 
for  the  analysis  period.  This  routine  also  prints  cost  summaries  at 
any  of  the  following  four  levels: 

1.  Direction 

2.  Year 

3.  Yearly  minimum  cost 

4.  Minimum  cost  for  analysis 

Description 

This  routine  sums  the  maintenance  and  rehabilitation,  operating, 
accident,  and  time  costs  in  the  array  COSTS  to  create  the  total  costs 
for  each  activity  and  closure  type.  While  creating  these  total  costs 
the  program  selects  the  closure  type  for  each  activity  which  has  the 
minimum  total  cost.  The  minimum  costs  for  each  cost  item  are  accumu- 
lated in  the  array  TOTALY.  Also,  the  total  costs  of  all  activities 
for  each  closure  type  and  direction  are  accumulated  in  the  array  ITOTAL, 

If  IPRINT  has  been  overridden  with  a  value  of  1  in  routine  OVER, 
then  the  directional  cost  array  is  printed  before  the  two  directions 
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of  the  arrays  COSTS  and  ITOTAL  are  combined  to  create  costs  for  the 
year.     If  IPRINT  has  been  overridden  with  a  value  of  one  or  two  then 
the  costs  for  the  year  are  printed. 

After  printing  of  the  costs  for  the  year  is  completed  or  bypassed, 
the  minimum  costs  for  each  cost  item  is  printed  if  IPRINT  has  a  value 
less  than  four. 

The  minimum  costs  of  accidents  maintenance  and  rehabilitation, 
operation,  lost  time  and  total   costs  are  discounted  to  present  worth 
using  the  following  equation: 

DC     =     Discounted  cost  in  dollars 

MC     =     Minimum  cost  in  dollars 

I       =     Annual    interest  rate 

Y       =     Analysis  year  number 

DC     =     MC/(1+I)^ 
These  discounted  costs  and  the  V'lilues    of  the  non-cost  items,  days  of 
pollution,  hours  of  time  lost,  and  number  of  accidents  are  accumulated 
for  the  analysis  in  the  array  TOTALA.     If  IPRINT  has  a  value  less  than 
four,  both  the  discounted  costs  for  the  year  and  the  accumulated  dis- 
counted cost  are  printed  for  each  analysis  year.  .   ' 

If  IPRINT  has  a  value  greater  than  or  equal   to  four,  all   printing 
in  this  routine  is  suppressed  and  the  discounted  cost  for  the  entire 
analysis   is  printed  at  the  end  of  the  analysis. 
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General  Flow  for  Routine  PRINT  in  Program  'EAROMAR 
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PRINT  cont'd. 
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4) 
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PRINT  cont'd, 
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SUBROUTINE  MAIi^T 

Purpose 

This  subroutine,  through  a  simulation  process,  establishes  the 
annual  costs  for  each  activity  for  each  lane  closure  category. 
Also,  the  subroutine  creates  a  matrix  of  the  hours  of  roadway  occu- 
pancy by  hour  by  activity  by  lane  closure  to  be  used  in  the  subroutine 
MOTOR  where  user  impacts  are  established. 
Description 

The  execution  of  this  subroutine  requires  the  following  elements 
which  are  generated  in  routines  RANDOM  and  AWORKL  which  reside  in  the 
subroutines  INITAL  and  YEARS: 

1.  The  annual  accumulated  workload  for  each  activity 

2.  Simulation  arrays  for  full  and  partial  depth  patches  and 
random  roadway  locations 

3.  Performance  standard  data  for  eacn  activity 

4.  The  maintenance  level  for  each  activity 

5.  The  simulation  parameters  for  each  activity 

6.  The  permitted  hours  of  roadway  occupancy  by  activity 

The  subroutine  MAINT  is  called  each  year  by  the  subroutine  YEAR. 
The  maintenance  level  for  each  of  the  seven  possible  activities  is  ex- 
amined to  determine  if  the  activity  will  be  performed  during  the  year. 
The  maintenance  level  can  fall  into  three  categories: 
1.  If  the  maintenance  level  is  zero,  the  maintenance  activity  is 
not  applicable  and  therefore  the  subroutine  iterates  to  the 
next  activity. 
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2.  If  the  maintenance  level  is  greater  than  one,  the  activity 
will  be  performed.  The  maintenance  level  is  truncated  and 
the  resulting  integer  establishes  the  frequency  of  the  acti- 
vity during  the  year.  For  example,  if  the  maintenance  level 
were  2.1,  then  the  truncated  integer  becomes  2  indicating 
that  the  activity  will  be  performed  twice  during  the  year. 

3.  If  the  maintenance  level  is  greater  than  zero  but  less  than 
one,  a  holding  array  for  maintenance  level  must  be  examined. 
If  the  accumulated  maintenance  level  in  the  holding  array 
exceeds  one,  then  the  maintenance  level  for  the  year  is  set 
equal  to  one  and  the  holding  array  is  reset  to  zero.  For 
example,  the  value  .4  may  be  assigned  to  the  maintenance 
level.  During  the  first  two  years  the  holding  array  reaches 
.8.  In  the  third  year,  the  holding  array  becomes  1.2  which 
exceeds  one,  therefore  the  activity  will  be  performed  in  the 
third  year,  and  tne  array  reset  to  zero  (0).  Also,  it  should 
be  noted  that  all  work  accumulated  during  three  years  will  be 
performed  in  the  third  year.  The  accumulated  workload  for  an 
acti-vity  is  divided  by  the  integer  maintenance  level  to 
establish  the  magnitude  of  work  which  will  be  present  on  the 
roadway  when  it  is  occupied  by  the  maintenance  forces  during 
the  year. 

A  number  of  factors  must  be  established  prior  to  simulating  the 
occupancy  of  the  roadway  by  maintenance  forces.  These  are  all  based 
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on  values  established  in  the  subroutine  INITAL.  Included  for  each 
activity  are: 

1.  The  simulation  parameters 

2.  Crew  travel    time 

3.  Traffic  control    time 

4.  Work  time 

5.  Maximum  crew  work  hours 

6.  Maximum  work  zone  length 

The  simulation  parameters  establish  the  number  of  simulation 
iterations,  and  the  nature  of  the  work  site  for  the  activity.  The 
maximum  number  of  iterations  which  can  be  specified  for  an  activity 
is  1000.  This  establishes  the  reliability  of  the  simulation  process 
when  random  parameters  are  used.  The  nature  of  the  work  site  is  de- 
fined in  three  parts,  which  are  modeled  as  A,  B  and  C  as  follows: 
work  =  (A.)(B)+C 
The  variable  A.  is 

A,  -  Full  Deptn  concrete  patch  or  fullsize  bituminous  patch 
as  established  by  the  density  function  in  subroutine 
RANDOM. 
Ap  -  A  Partial  Depth  size  concrete  patch  as  established  by 

the  density  function  in  the  subroutine  RANDOM. 
Ao  -  The  number  of  lanes  closed  to  traffic. 
The  variable  B  is  a  user  supplied  factor  to  be  applied  to  the 
value  of  A.  The  variable  B  can  be  zero,  and  would  eliminate  A. 
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The  Variable  C  is  a  user  supplied  constant  which  is  additive  to 
the  worksite  model . 

Finally,  the  spacing  of  the  work  sites  can  fall  into  two  cate- 
gories which  are: 

1.  Randomly  spaced 

2.  Uniformly  spaced 

The  random  spacing  is  based  on  the  spacing  array  call  RLOC  generated 
in  subroutine  RANDOM.  The  uniform  spacing  used  is  defined  in  variable 
OVER,  which  either  designates  joint  spacing  or  distance  between  work 
sites. 

As  an  example  of  the  simulation  parameters,  the  default  assump- 
tions built  into  the  program  for  mudjacking  are  as  follows: 

1.  The  simulation  iterations  are  100 

2.  The  worksite  description  is 
W  =  A2  X  3  +  10 

3.  The  spacing  is  random 

This  means  that  the  simulation  process  will  cause  100  mudjacking  sites 
to  be  occupied  by  a  mudjacking  crew.  At  each  site,  the  cubic  feet  of 
mudjacking  will  be  W.  If  the  size  of  the  partial  depth  concrete  patch 
was  20  S.F.  then  the  workload  of  mudjacking  becomes  (20x3+10=70)  cubic 
feet.  Finally,  the  spacing  is  random,  so  the  relative  location  of  the 
next  site  will  be  based  on  the  concentration  of  the  mudjacking  workload 
The  concentration  value  is  computed  as  follows  where 

SW  -  Simulation  workload  per  lane  mile 

W  -  Annual  workload  per  lane  mile 
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NA  -  Maintenance  frequency  based  on  level  of  maintenance 

LC  -  Lanes  closed  for  maintenance 

C  =  Concentration  Value  =  SW/( (WxLC)/NA) 

The  concentration  value  actually  reflects  the  mileage  over  which  the 
simulation  process  will  occur.  For  example,  given  the  following  values 

SW  =   1000  SY/lane  mile 

W   =   10  SY/lane  mile 

LC  =   2  lanes 

NA  =   1  time  per  year 

C   .   1000  SY/lane  mile         lOOO   j,^ 
10  SY/lane  mile  x  2  lanes  "20   ~  ^° 

The  total  mileage  over  which  the  simulation  of  work  will  occur  becomes 
50  miles. 

There  will  be  100  random  locations  between  0  and  1  in  the  array 
RLOC  which  are  ordered  from  0  to  1.  At  each  iteration  the  product  of 
RLOC  and  C  produces  a  random  roadway  mileage  location  where  the  work 
occurs. 

The  crew  travel  time  is  the  allowance  made  for  moving  from  a 
maintenance  housing  facility  to  the  roadway  and  then  returning  to  the 
facility  at  the  end  of  a  work  day.  This  is  crew  time  not  available 
for  performing  productive  work  on  the  roadway. 


120 


Traffic  Control  Time  is  the  time  required  to  establish  work  site 
protection  and  again  is  not  available  for  performing  productive  work. 

Cure  time  may  not  be  applicable  to  all  activities,  but  is  treated 
as  time  which  must  be  allowed  at  the  end  of  the  productive  period  of 
a  crew  for  material  to  gain  the  strength  it  will  need  before  roadway 
can  be  open  to  traffic. 

The  option  is  open  to  the  user  to  specify  that  crews  can  work 
24  hours.  This  means  that  the  roadway  will  remain  closed  continuously 
until  all  work  is  completed.  Additionally,  all  24  hours  are  classified 
as  productive,  meaning  no  time  is  deducted  for  travel,  traffic  control 
or  cure.  Otherwise,  crew  work  time  is  specified  and  travel  time  sub- 
tracted to  get  net  crew  work  time  available. 

The  maximum  work  zone  length  establishes  how  frequently  a  new 
traffic  control  zone  must  be  established.  Allowance  is  made  for  moving 
to  and  installing  a  new  traffic  control  zone  once  the  assignments  of 
worksites  falls  beyond  the  maximum  zone  length. 

The  process  of  simulating  the  maintenance  work  for  a  given  activity 
involves  the  following  steps: 

1.  The  first  lane  closure  configuration  is  selected  and  the 
routine  AVAIL  called  to  establish  the  first  available  occupancy 
hour  and  the  length  of  time  the  maintenance  occupancy  is  allowed, 

2.  The  available  time  is  compared  with  net  crew  time  and  the 
lesser  of  the  two  used  to  establish  the  maximum  occupancy 
period. 
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3.  The  location  of  the  first  work  site  is  established  in 
mileage  stationing. 

4.  The  time  required  to  complete  the  production  work  at  the 
first  site  is  determined. 

5.  The  total  time  required  to  complete  the  work  at  the  first 
site  is  determined  and  compared  with  the  available  occu- 
pancy period.  If  the  available  occupancy  is  exceeded, 
work  is  terminated  for  the  occupancy.  Regardless  of  the 
time  required  at  the  first  site,  the  work  is  allowed  to 
be  done. 

6.  The  location  of  the  next  work  site  is  established  and  a 
determination  made  as  to  whether  it  falls  within  the 
allowed  maximum  traffic  control  zone.  If  within  the  zone, 
allowance  is  made  for  moving  to  the  work  site  and  per- 
forming the  production  work.  If  work  falls  outside  of 
the  zone,  allowance  is  made  for  moving  to  a  new  zone,  in- 
stalling traffic  control  and  performing  the  productive 
work.  Either  way,  time  is  accumulated  and  tested  against 
total  available  occupancy  time.  The  length  of  each  traffic 
zone,  together  with  a  count  on  the  traffic  zone  is  main- 
tained so  that  an  average  zone  length  can  be  established 
for  each  closure  configuration.  If  the  available  time  is 
exceeded,  then  the  work  is  terminated  at  the  completion  of 
work  at  the  previous  site.  If  the  available  time  is  not 
exceeded,  a  new  work  site  is  iterated. 
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7.  Following  the  termination  of  each  occupancy  period,  the 
following  information  is  accumulated: 

a.  One  hour  of  occupancy  is  added  to  each  appropriate 
hour  of  a  24-hour  occupancy  array. 

b.  The  total   crew  hours  including  travel   time  is 
accumulated. 

8.  The  iteration  process  continues   until   the  simulation  process 
is  complete. 

Following  the  simulation  for  each  activity  and  lane  closure,  the 
accumulated  crew  hours  and  occupancy  hours  are  factored  to  reflect 
the  crew  hours  and  occupancy  hours  to  be  associated  with  doing  the 
annual  work  load.  This  requires  that  the  ratio  of  annual  workload 
for  the  simulation  workload  be  determined  and  multiplied  times  the 
project  length.  This  is  done  as  follows: 
Given         SW  =     Simulation  Workload 

W     =     Annual  workload  per  lane  mile 
P     =     Project  length  in  lane  miles 
R     =     Ratio  factor  to  be  applied  to  crew  hours  and 
occupancy  hours 
R    =     (W  X  P)/S 
For  the  determination  of  the  maintenance  cost  to  be  associated  with 
a  given  activity  and  lane  closure,  the  program  branches  to  the  appro- 
priate freeway  type  (4-,  6-,  or  8-lane)  and  the  crew  hours  for  each 
closure  sequence  is  expanded  to  dollars   using  the  performance  standard 
data. 
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General  Flow  for  Subroutine  MAINT  in  Program  'EAROMAR 
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MAINT  cont'd. 
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MAINT  cont'd. 
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to  reflect  actual 

workload 


I 


Compute  maintenance 

activity  costs  for 

each  lane  closure 

category 


RETURN 
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SUBROUTINE  MAINT 
ROUTINE:  AVAIL 

Purpose 

This  routine  is  used  by  the  subroutine  MAINT  to  establish  the 
first  hour  and  length  of  each  occupancy  interval. 

Description 

The  routine  examines  the  JHOUR  array,  which  shows  the  hours  the 
road  can  be  occupied  for  each  activity.  For  the  first  occupancy 
interval  of  a  simulation,  the  start  hour  follows  the  first  unavailable 
hour  found  in  the  matrix  beginning  from  hour  one.  The  routine  then 
determines  the  duration  of  continuous  occupancy  available.  These 
values  are  used  in  MAINT  to  simulate  roadway  occupancy  by  work  crews. 
When  the  available  occupancy  is  used  by  the  simulation  process,  AVAIL 
is  again  accessed  to  develop  a  new  start  time  and  occupancy  interval. 
The  last  available  hour  is  carried  forward  for  each  iteration,  so 
that  a  number  of  occupancy  intervals  within  a  24-hour  period  are 
possible. 
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General  Flow  for  Routine  AVAIL  in  Program  'EAROMAR' 


Determine  first 
unavailable  hour 


Determine  first 
available  occupancy  hour 


Assign  6AM  as 
first  unavailable  hour 


Determine  hours  road  can 
be  continously  occupied 
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SUBROUTIiME  MOTOR 

Purpose 

This  subroutine  takes  the  manhours  array  developed  in  the  sub- 
routine MAINT  and  for  each  activity  and  lane  closure  computes  the 
impact  on  the  motorist,  in  terms  of  operation,  time  and  accident 
costs  together  with  pollution  effects. 

Description 

The  execution  of  this  subroutine  requires  the  following  elements : 

1.  Array  HRS  which  is  generated  in  the  subroutine  MAINT  and 
contains  the  number  of  days  each  hour  of  the  day  the  road 
has  been  closed  for  each  maintenance  activity  and  lane 
closure. 

2.  The  array  CAP  which  provides  the  capacity  of  each  closure 
category. 

3.  The  array  HVOL  and  DVOL  which  holds  the  hourly  directional 
traffic  volume  on  the  freeway  and  the  detour. 

4.  The  array  DETOUR  which  describes  the  characteristics  of  the 
detour  required  when  all  directional  lanes  are  closed. 

The  first  and  last  nour  of  an  occupancy  interval  are  established 
and  the  number  of  days  that  the  occupancy  interval  lasts  is  deter- 
mined for  use  in  computing  the  magnitude  of  motorist  impacts.  The 
program  then  establishes  the  volume,  delay  and  average  vehicle  speed 
for  all  vehicles  passing  through  the  restricted  roadway  occupancy  area 
or  on  a  detour  for  each  hour  in  the  occupancy  interval . 
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The  volume  is  based  on  a  closure  category  capacity  which  has 
been  adjusted  for  commercial  traffic.  Volume  in  excess  of  capacity 
is  held  in  a  queue.  The  delay  to  the  first  and  last  vehicle  in  an 
hour  is  based  on  the  magnitude  of  the  queue  at  the  start  and  end  of 
an  nour  interval.  These  two  delays  are  averaged  and  the  resulting 
mean  assigned  as  the  delay  to  the  volume  passing  through  the  re- 
stricted zone  during  the  hours.  The  speed  is  a  function  of  the 
volume/capacity  ratio. 

The  subroutine  then  branches  to  the  routines  OPERAT,  TIME, 
ACCIDT  and  POLUTE  and  computes  data  for  each  lane  closure.  These 
data  are  appropriately  combined  for  the  closure  categories  which 
are  feasible  for  the  freeway  type  being  considered.  This  produces 
the  following  output  arrays  by  activity  and  closure  category; 

1.  Vehicle  operation  costs 

2.  Accident  costs 

3.  Accidents 

4.  Value  of  time  loss 

5.  Manhours   loss 

6.  Increased  days  of  pollution 
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General   Flow  for  Subroutine,  MOTOR  in  Program  'EAROMAR' 
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Do  for  each  occupancy 
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IH  =  start, finish 
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MOTOR  cont'd. 


Establish  volume  to  be 
handled  during  hour 


Add  excess  volume  to 
accumulated  queue 


I 


Determine  a  delay  for 
the  queue 


Compute  speeds  for 
restriction 


Add  one  hour  to 
occupancy  period 
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MOTOR  cont'd, 


4  Lane 


Compute  motorist 

impacts  all  lanes 

closed-detour  or 

use  shoulder 


Compute  motorist 
impacts  one  lane 
closed  at  a  time 


Compute  motorist 

impacts  all  lanes 

closed  and  cross-over 
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Compute  motorist 
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closed  at  a  time 


Compute  motorist 
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Compute  motorist 

impacts  all  lanes 
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Lane 
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RETURN 
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J 
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SUBROUTINE  MOTOR 
ROUTINE:  VOCOST 

Purpose 

This  routine  takes  volume,  speed  and  delay  data  developed  in 
the  subroutine  MOTOR  and  determines  the  change  in  vehicle  operation 
costs  between  normal  operations  and  operations  during  each  lane 
closure. 

Description 

The  execution  of  this  routine  requires  the  following  elements: 

1.  The  normal  hourly  volume  and  average  speed  of  directional 
traffic  on  the  freeway  and  on  the  detour  route  which  is 
created  in  subroutine  YEAR 

2.  The  first  and  last  hour  of  the  occupancy  interval  as  esta- 
blished in  subroutine  MOTOR 

3.  The  hourly  volume  and  average  speed  of  the  directional 
traffic  in  the  influence  zone  or  as  diverted  to  the  detour 
as  established  in  MOTOR 

A.  The  array  OCOSTS  which  contains  passenger  car  and 
commercial  vehicle  operation  costs  for  65  speeds  as 
created  in  subroutine  OPPARA 

4.  The  unit  cost  of  fuel,  oil,  tires  and  maintenance  established 
in  subroutine  INITAL 

5.  The  length  of  the  influence  zone  as  determined  in  MAINT  and 
the  detour  length  and  composite  signals 
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Four  categories  of  vehicle  operation  costs  are  determined  by  the 
routine  for  each  hour  of  the  occupancy  interval.  These  are: 

1.  The  normal  operating  costs  on  the  freeway  and  on  the  detour 
route  if  applicable 

2.  The  vehicle  operating  costs  during  each  lane  closure 

3.  The  cost  of  the  speed  changes  created  by  the  land  closure 

4.  The  cost  of  vehicle  operation  during  any  delay  caused  by 
queuing  resulting  from  a  lane  closure 

The  first  two  cost  categories  are  developed  as  follows: 

Where 

S   =  Normal  Speed 
n  ^ 

S   =  Lane  closure  speed 

V  =     Normal    volume 

V  =     Lane  closure  volume 
r 

0.  =  Operation  cost  for  speed  i 

Z  =  Average  length  of  lane  closure 

NC  =  Normal   operation  cost 

CC  =  Operation  cost  during  closure 

NC     =     0       X  V     X  Z/S 
^n 

CC     =     0       X  V     X  Z/S 
s^         r         ^    r 

When  all  lanes  are  closed,  one  option  is  to  detour  traffic.  The  second 

option  is  to  allow  for  a  roadway  crossover.  When  the  detour  option  is 

used  the  following  additional  information  is  needed  for  the  above  two 

categories: 
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Sj  =  Speed  in  detour 

V  .  =  Normal  volume  on  the  detour 
d 

D   =  Length  of  detour 

DC  =  Normal  operation  cost  on  detour 

DC  =  0   X  V  ,  X  D/S  . 
^d    ^  ^ 

The  normal  operation  cost  for  the  detour  situation  includes  both  NC 
and  DC  or 

NC  =  NC  +  DC 
The  lane  closure  costs  when  detour  is  used  requires  that  the  combined 
freeway  and  normal  detour  volumes  be  combined,  therefore  CC  will  be 
computed  as  follows: 

Where 

S   =  Speed  of  combined  volume  on  detour 

V  =  Combined  volume  on  detour 
c 

CC  =  0   X  V  X  D/S 
s    c    '  c 
c 

The  costs  of  the  speed  changes  is  determined  using  a  series  of  vehicle 
operation  consumption  parameter  equations.     These  consist  of  the  following 
Where 

A      =     Intercept  Value 

B       =     Coefficient  or  variable 

C       =     Coefficient  or  variable 

W       =     Vehicle  Weight 

RW     =     Vehicle  weight  factor 

CP     =     Consumption  parameter 

S       =     Normal   speed 
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SC    =     Speed  change 

U      =     Unit  cost 

CSTSC  (   )     =     Cost  of  speed  change 

Excess  Fuel   Consumption  Cost 

A      =     -8  +   .0035  X  S 

B      =     .91  +   .00135  X  S 
^p     ^     g(A  +  BlnSC) 

RW     =     W^-^/5.277 
CSTSC (Fuel)     =     RW  x  CP  x  U 
Excess  Tire  Wear  Cost 

u  (-4.7  +  .0417  X  S) 

B      =     e 

CP     =     -A  +  Bin  SC 

RW     =     -.64  +   .16  X  W 

CSTSC(Tires)   =     RW  x  CP  x  U 

Excess  Oil   Consumption  Cost 

A      =     -20.5  +   .09  x  S 

B      =     1.8 

^p     ^     g(A  +  Bin  SC) 

CSTSC(Oil)       =     RW  X  CP  X  U 
Excess  Vehicle  Maintenance 

A  .   =     2.56  +  1.311nS 
B       =     1.3  +  .0068  X  S 
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n 


CP     =     (e^-A+B  X  LnS))/^QQQ 


A       =     -.298  +   .00605  x  S 
r 


B 
r 

^ 

.3642  = 

.00173  X 

S 

C 

= 

.00506  - 

■  .000025 

X  S 

RW 

= 

A  +  B 
r    r 

X  W  -  C  X  W^ 

CSTSC(Maint)       =     RW  x  CP  x  U 
The  speed  change  cost  parameters  are  determined  independently  for 
passenger  cars  and  the  composite  commercial   vehicles.     They  are  then 
totaled  to  produce  a  single  speed  change  cost  (CS)  as  follows: 
CS     =     CSTSC(Fuel)  +  CSTSC(Tires)  +  CSTSC(Oil)  + 
CSTSC(Maint) 
The  speed  change  used  in  the  computation  of  speed  change  costs  is  com- 
puted as  follows  for  different  conditions: 

1.  Reduction  from  normal   speed  to  lane  closure  speed  with  no 

queue  created 

SC     =     (S     -  S   )   X  1.5  where  SC  ^  S 
n         r  n 

2.  Reduction  from  normal  speed  to  lane  closure  speed  when  queue 

is  created 

SC  =  S 
n 

3.  Reduction  from  detour  speed  to  stop  for  a  signal 

SC  =  S  ,  (normal  detour  speed) 

SC  =  S  (lane  closure  detour  speed) 
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General    Flow  for  Routine  VOCOST  in  Program  'EAROMAR' 
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operation  cost 
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operation  cost  of 
volume  handled 
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fe — ^ 

Compute  normal 
hourly  operation 
cost  on  detour 

tf 

140 


VOCOST  cont'd, 
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No 
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change  cost  for 
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Determine  signal 
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for  volume  handled 


Determine  operation 
costs  to  queued 
vehicle 


I  TIME   ] 


Determine  the  difference 

between  normal  and 

closure  cost 


Accumulate  operation 
cost  difference 
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SUBROUTINE  MOTOR 
ROUTINE:     TIME 

Purpose 

This  routine  computes  the  total  amount  of  time  lost  and  the 
dollar  value  of  the  lost  time. 

Description 

The  execution  of  this  routine  requires  the  following  arrays  and 
variables  which  are  generated  in  the  indicated  subroutines: 

1.  The  array  PCTADT,  generated  in  subroutine  INITAL,  which  pro- 
vides hourly  distributions  of  traffic  by  trip  purpose 

2.  The  array  VTRATE,  generated  in  subroutine  OPPARA,  which  pro- 
vides passenger  car  hourly  values  of  time  by  trip  purpose 
and  minutes  lost 

3.  The  array  DETOUR,  defined  in  subroutine  INITAL,  which  holds 
the  detour  route  parameters 

4.  The  variable  COMVOT,  defined  in  subroutine  INITAL,  which  is 
the  commercial  vehicle  hourly  value  of  time 

5.  The  arrays  hVOL  and  DVOL ,  created  in  subroutine  YEAR,  whicn 
hold  the  hourly  volumes  under  normal  conditions  on  the  free- 
way and  detour,  respectively 

6.  The  arrays  SPEEDN  and  SPEED,  created  in  subroutine  YEAR,  which 
hold  the  normal  speeds  for  the  freeway  and  detour,  respectively 

7.  The  array  ZONEL,  created  in  subroutine  MAINT,  which  holds  the 
average  zone  length  in  miles 
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8.  The  array  AVOL ,  computed  in  subroutine  MOTOR,  which  holds 
the  hourly  volume  passing  through  the  influence  zone 

9.  The  array  DELAY,  computed  in  subroutine  MOTOR,  which  holds 
the  average  delay  for  the  volume  AVOL 

10.  The  variables  IBEGIN  and  lEND,  generated  in  subroutine 
MOTOR,  which  are  the  first  and  last  hour  of  occupancy, 
respectively 

11.  The  variable  DAYS,  generated  in  subroutine  MOTOR,  which  is 
the  number  of  days  the  roadway  is  occupied 

This  routine  is  executed  hourly  for  each  lane  closure  by  activity. 

It  is  assumed  that  traffic  is  detoured  only  when  all  lanes  are  closed 

and  no  shoulders  are  open. 

When  traffic  is  not  detoured  the  time  loss  of  each  motorist  is 

computed  using  the  following  equation: 

Where 

TL  =  the  time  lost  in  hours 

ZN  =  the  average  zone  length  in  miles 

DZ  =  the  deacceleration  and  acceleration  zone  (assumed  2  miles) 

S   =  the  normal  speed  on  freeway 

X  =  speed  change 

DELAY  =  the  average  delay  to  a  motorist 

TL  =  ZN  -  ZN/S  +  DZ/(S  -  SC/2)  +  DELAY 
r      n    ^  n      ' 

Once  the  time  loss  has  been  established,  a  composite  hourly  value 
for  that  time  loss  is  computed,  using  the  following  equation: 
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Where 

VT  =  the  composite  hourly  value  of  time  in  dollars  per 

hour  per  vehicle 
CVT  =  commercial  vehicle  value  of  time  in  dollars  per 

hour  per  vehicle 
MTL  =  minutes  of  time  lost 
n   =  trip  purpose 
PCT(n)  =  the  percentage  of  total  traffic  obtained  from  PCTADT 

for  each  trip  purpose 
PVT(n)  =  the  passenger  car  value  of  time  obtained  from  the 
array  VTRATE 
VT  =  CVT  X  PCT(6)  +  PVT(1,MTL)  x  PCT(l)  +  ...  + 
PVT(5,MTL)  X  PCT(5) 
The  composite  hourly  value  of  time  is  multiplied  by  the  time  loss  to 
oDtain  the  value  of  time  per  vehicle. 

Both  the  value  of  time  per  vehicle  and  the  time  loss  per  vehicle 
are  multiplied  by  the  volume  passing  through  the  zone  to  give  the 
total  time  lost  and  the  value  of  time  lost. 

If  the  traffic  is  detoured,  the  time  lost  by  freeway  motorist  and 
detour  motorist  is  computed  separately  using  the  following  equations: 
Where 

TL^  =  The  time  lost  by  a  freeway  motorist 
TL  ,  =  The  time  lost  by  a  detour  motorist 
Dp  =  The  length  of  the  detour 
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D,  =  The  distance  between  interchanges  on  the  freeway  in  miles 
S  ,  =  The  normal  speed  on  the  detour 


and 


TL^  =  D2/S^  -  D^/S^  +  DELAY 


TL^  =  D2/S^  -  D^/S^  +  DELAY 


The  composite  values  of  time  are  computed  as  to  lane  for  both  the  detour 
and  freeway  motorists.  These  composite  values  are  multiplied  by  the 
appropriate  time  losses  to  obtain  the  values  of  time  per  vehicle. 

The  time  losses  and  values  of  time  for  the  freeway  and  detour 
traffic  are  appropriately  modified  and  combined  to  produce  a  composite 
time  loss  and  value  of  time  for  the  detour.  The  composite  time  loss 
and  value  of  time  are  expanded  to  totals  by  multiplying  by  AVOL. 

If  any  traffic  remains  in  the  queue  at  the  end  of  the  day,  the 
time  loss  associated  with  these  vehicles  is  evaluated  using  the 
following  equation. 

Where 

Q  =  The  volume  in  the  queue 
CAP  =  The  capacity  of  the  freeway 
TL  =  Q/CAP/2 
TL  is  valued  and  expanded  to  totals  as  above. 
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TIME  cont'd. 
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SUBROUTINE  MOTOR 
ROUTINE:  ACCIDT 

Purpose 

This  routine  computes  the  increased  number  and  cost  of  accidents. 

Description 

The  annual  accidents  for  a  section  of  roadway  are  computed  using 

the  following  model: 

Where 

A  =  the  annual   accidents 

a,b  &  c  are  constants  dependent  on  directional   lanes  and 

access  control   shown  in  Table  12. 

SL  =  section  length  in  miles 

V     =  volume 
.      ^     ^  g(a+bLnSL+cLnV) 

The  normal   annual   accidents  on  the  freeway,  the  annual   accidents   in 
the  influence  zone  and  the  normal   annual   accidents  of  the  detour  route 
are  computed  using  this  model.     The  normal   accidents  are  subtracted  from 
the  influence  zone  accidents  to  obtain  the  accident  increase.     This 
accident  increase  is  factored  by  the  ratio  of  the -traffic  affected  to 
the  annual   traffic. 

In  addition  to  the  increased  accidents  in  the  influence  zone,  the 
accidents  caused  by  deceleration  coming  into  the  zone  are  computed. 
These  accidents  are  computed  using  the  following  equation: 

Where 

A  =  The  number  of  accidents 
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DEC  =  The  deceleration  rate  in  miles  per  hour  per  hour 

V   =  The  Volume 

SCZ  =  Speed  change  zone  length  in  miles 

A   =  (-1.32  +  .002  X  DEC)  x  V  x  SCZ 
The  accidents  of  both  freeway  motorists  and  detour  motorists  are 
computed  using  this  model.  These  accidents  are  added  to  the  increased 
accidents  in  the  influence  zone. 

After  the  increased  accidents  have  been  accumulated  for  all  lane 
closures  the  increased  accident  cost  is  computed  by  multiplying  by  the 
average  cost  of  an  accident. 
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General  Flow  for  Routine  ACCIDT  in  Program  'EAROMAR' 


Initial tze  detour 
accidents  to  zero 


I 


Intttalize 
section  length 


No   4" 

5_ 


Compute  normal 
accidents  on  freeway 


Yes 


No 


ACCIDT 


Change 
section  length 


Compute 
closure  accidents 


I 


Compute  normal 
accidents  on  detour 
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ACCIDT  cont'd. 


0 


Compute 
tncreased  accidents 


Do  for  each 
hour  of  closure 


Compute 
increased  accidents 


Compute  freeway 
deceleration  rate 


Compute  speed 
change  accidents  rate 


Convert  accident  rate 
to  accidents  detour 
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ACCIDT  cont'd. 


Yes 


No 


Total 
all  accidents 


I 


Convert 
accidents  to  cost 


Compute  detour 
deceleration  rate 


I 


Compute  speed 
change  accident  rate 


Convert  accident 
rate  to  accidents 
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SUBROUTINE  MOTOR 
ROUTINE:     POLUTE 

Purpose 

This   routine  takes  the  speed,  delay  and  volume  data  developed  for 
each  hour  and  computes  a  pollution  impact  due  to  roadway  occupancy. 

Description 

The  following  two  models  are  combined  to  produce  a  combined  HC,CO 
pollution  factor  as  a  function  of  speed: 
S     =     Speed  mph 
P     =     Pollution  factor 
p       =       89e^^-^^^  ■   '^^^^^ 

CO 

P       =       lle^-^^^  "   '^^^^^ 
he 

P        =        P  +     Pu 

CO    he 
In  each  analysis  hour  a  speed  can  be  associated  with  normal  operation 
on  the  freeway  and  detour;  restricted  operation  on  the  freeway  or  de- 
tour due  to  traffic  control,  and  with  operations  in  a  queue.  The 
pollution  rate  for  each  condition  is  expressed  by  the  following  factors: 

P   =  Normal  freeway  factor 

P   =  Restricted  operation  factor 

P„  =  Normal  detour  operation  factor 

Pq  =  Queue  operation  factor 
The  measure  of  the  pollution  increase  due  to  traffic  control  is 
defined  as  days  of  additional  pollution.  This  is  based  on  the  total 
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pollution  created  by  normal  traffic  operating  on  the  project  for  one 

day.  In  each  hour,  the  increased  pollution  is  determined  as  follows: 

V  =  Volume  of  traffic  handled  during  hour 

Z  =  Length  of  influence  zone  in  miles 

VMP  =  Increased  vehicle  miles  of  pollution  at  normal 

freeway  levels 

VMP  =  (P  /P  -  1)  X  V  X  Z 
^  r  V 

If  the  volume  V  has  a  queue  time   for  the  hour,  then  a  similar 
computation  is  made  to  determine  increased  vehicle  miles  of  pollution 
in  the  queue. 

When  the  traffic  is  detoured,  consideration  is  given  to  the  differ- 
ent pollution  emission  rate  associated  with  normal  operation  on  the 
detour. 

The  increased  vehicle  miles  of  pollution  are  accumulated  for  each 
activity  and  closure  category.  The  total  is  divided  by  the  normal 
vehicle  mile  per  day  to  produce  increased  days  of  pollution. 
DAYS  =  Days  of  increased  pollution 
PROJ  =  Project  length  in  miles 
ADT   =  Freeway  average  daily  traffic  volume 

DAYS  =  VMP/ (PROJ  X  ADT) 
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General  Flow  for  Routine  POLUTE  in  Program  'EAROMAR' 


Determine  pollution 
factors  as  a  function 
of  speed 


Yes 


Compute  added  vehicle 
miles  of  pollution 
freeway  -  zone 


Compute  added  vehicle 
miles  of  pollution 
in  queue 


Compute  and  accumulate 
increased  days  of  pollution 


Determine  freeway 
detour  volume  split 


I 


Compute  added  vehicle 

miles  of  pollution, 

freeway  -  detour 


I 


Compute  added  vehicle 
miles  of  pollution 
detour  -  detour 


I 


Compute  added  vehicle 
miles  of  pollution 
add  miles  on  detour 


W  MOTOR  ) 
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:nput  Format  for  Program  'EAROMAR' 


Required 


Optional 


/lO  Mox.    /Packet  7 


/a  Max.    /  Packet    4 


/6  Max.     /Packet    2 


7  Max.     /Packet   i 


Program    Deck 
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Input  cont'd, 


Optional 


Packet   18 


Packet    17 


Packet    8 


.58 


Input  cont'd 


Optional 


/  Packet     23 
/  Packet   22 
/  Pocket    21 

/  Packet    20 
/  Packet    19 
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CARD  NO.  1  —  TRAFFIC 
FORMAT  (6F5.2) 


COLUMNS 


INPUT  VARIABLE 


DESCRIPTION 


1-5 

6-10 

11-15 

16-20 
21-25 
26-30 


VOLUME(l) 

SPLIT(l) 

TRUCKS(l) 

V0LUME(2) 

SPLIT(2) 

TRUCKS(2) 


Initial  Year  Volume  in  1000 's 

Initial  Year  AM  Split  in  percent 

Initial  Year  Percentage  of  Commercial 
Vehicles 

Final  Year  Volume  in  1000 's 

Final  Year  AM  Split  in  percent 

Final  Year  Percentage  of  Commercial 
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CARD  NO.  2  —  PAVEMENT 
FORMAT  (3I2,4F5.2) 


COLUMNS 


INPUT  VARIABLE 


DESCRIPTION 


1-2 


3-4 


5-6 


7-11 
12-16 
17-21 
22-26 


NYEARS 


KP 


ITYPE 


PROJLN 
THICKl 
THICK2 
THICKS 


Number  of  years  to  be  included  in 
analysis 

Freeway  type  switch 

1  =  4  lane 

2  =  6  lane 

3  =  8  lane 

Pavement  switch  where 

1  =  Portland  cement 

2  =  Bituminous 

3  =  Composite 

Project  length  in  miles 
Pavement  surface  thickness  in  inches 
Pavement  base  thickness  in  inches 
Pavement  subgrade  thickness  in  inches 
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CARD  NO.  3  —  PACKET  OPTION 
FORMAT  (I2,A4) 


COLUMNS 


INPUT  VARIABLE 


DESCRIPTION 


1-2 


IP 


3-6 


END  • 


Packet  Switch 

1.  Hourly  volume  distribution  by 
trip  purpose 

2.  Percent  of  total  volume  by 
trip  purpose 

3.  Directional  balancing  switch 

4.  Permitted  occupancy  interval 
by  activity 

5.  A  range  of  override  parameters 
by  activity 

6.  Vertical  and  horizontal 
alignment 

7.  Vehicle  classification  data 

8.  Maintenance  simulation  parameters 

9.  Unit  operating  costs 

10.  Print  switch 

11.  Pavement  lane  width 

12.  Income  level 

13.  Speeds  for  walking  and  traveling 
on  roadway 

14.  Terminal  PSI  value 

15.  Detour  parameter 

16.  Design  life 

17.  Activity  standard 

18.  Capacities 

19.  Freeway  design  speed 

20.  Average  accident  cost 

21.  Vehicle  occupancy 

22.  Commercial  time  value 

23.  Speed  limits 
The  literal  "bEND" 
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CARD  NO.  4  —  TRAFFIC  DISTRIBUTION 

FORMAT  (3I2,24F3.3) 

MAXIMUM  NUMBER  OF  CARDS  -  7 
VARIABLE  OVERRIDE  -  PCTADT 

COLUMNS         INPUT  VARIABLE 


DESCRIPTION 


1-2 


3-4 


5-6 


IT 


ID 


LEVEL 


Trip  purpose  switch 


Pass. 
Pass. 
Pass. 
Pass. 
Pass. 


Car 
Car 
Car 
Car 
Car 


Commercial 
All  Trips 


Work  Trips 

Personal  Business  Trips 
Social -Recreational  Trips 
School  Trips 
Vacation  Trips 
Vehicle  Trips 


Direction  Switch 

1  =  AM  peak  direction 

2  =  PM  peak  direction 

Volume  level   switch 

1  =  Initial  year 

2  =  Final  year 


7-9 
10-12 


i 


Decimal   portion  of  24  hourly  volume  for  100  percent 
of  a  given  trip  purpose 


76-78 


Z(l). 
Z(2) 


Z(24)  • 


Hour  1 
Hour  2 


i 


Hour  24 
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CARD  NO.  5  -  TRIP  PURPOSE  DISTRIBUTION 

FORMAT  (212,  6F3.3) 

MAXIMUM  NUMBER  OF  CARDS  -  6 
VARIABLE  OVERRIDE  -  PERCNT 


COLUMNS 


INPUT  VARIABLE 


DESCRIPTION 


1-2 

3-4 

5-7 

8-10 
11-13 
14-16 
17-19 
20-22 


ID 


LEVEL 


Direction  Switch 

1  =  AM  peak  direction 

2  =  PM  peak  direction 

Volume  level   svn'tch 

1  =  Initial  year 

2  =  Final  year 


Decimal   portion  of  ALL  trips  that  are 

z(i) 

Work  trips 

Z(2) 

Personal   business  trips 

Z(3) 

Social   Recreation  trips 

Z(4) 

School   trips 

Z(5) 

Vacation  trips 

Z(6) 

Commercial   vehicle  trips 
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CARD  NO.  6  —  OCCUPANCY  CONSTRAINTS 
FORMAT  (312) 

MAXIMUM  NUMBER  OF  CARDS  -  9 
VARIABLE  OVERRIDE  -  INOCC 
COLUMNS         INPUT  VARIABLES 


DESCRIPTION 


1-2 

INOCC  (N,l)  • 

Activity  No. 

3-4 

INOCC (N  ,2)  • 

First  hour  of  occupancy 

5-6 

INOCC (N, 3)  • 

Last  hour  of  occupancy 

CARD  NO.  7  —  OVERRIDE  ARRAY 

FORMAT  (212, F7. 2) 

MAXIMUM  NUMBER  OF  CARDS  -  7  x  12 
VARIABLE  OVERRIDE  -  OVER 

COLUMNS  INPUT  VARIABLE 


DESCRIPTION 


1-2 


II 


3-4 
5-11 


lA 

VALUE 


Type  Switch 

1  =  Continuous  crew  work  hours 

2  =  Location  or  joint  space  in  feet 

3  =  Workload  model  factor 

4  =  Workload  model  fixed  annual  rate 

5  =  Travel  time  hours  (round  trip) 

6  =  Maintenance  level 

7  =  Cure  time  hours 

8  =  Traffic  control  installation 

in  hours 

9  =  Max.  workzone  length  in  miles 

10  =  Vol /Cap  Ratio  allowed 

11  =  Min.  workzone  length 

12  =  Shoulder  open  to  traffic 

Activity  Number 
Value  of  Override 
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CARD  NO.  8  —  ALIGNMENT  DESCRIPTION 
FORMAT  (212,  F7.2) 
MAXIMUM  NUMBER  OF  CARDS  -3x6 
VARIABLE  OVERRIDE  -  ALIGN 
COLUMNS  INPUT  VARIABLE 


DESCRIPTION 


1-2 


3-4 
5-11 


II 


12 
VALUE 


Alignment  Switch 

1  =  Positive  grades 

2  =  Negative  grade 

3  =  Horizontal  Curvature 

Alignment  value  from  1  to  6 

Mileage  associated  with  Switch  and  Value 


CARD  NO.  9  —  VEHICLE  DESCRIPTION 

FORMAT  (3F5.0) 

MAXIMUM  NUMBER  OF  CARDS  —  10 

VARIABLE  OVERRIDE  -  WEIGHT 

COLUMNS  INPUT  VARIABLE 


DESCRIPTION 


1-5 

6-10 

11-15 


Z{1) 
Z(2) 
Z(3) 


Weight  in  Kips 

Percentage  of  vehicles  in  weight  class 

Initial   cost  of  vehicles  in  weight 
class 


NDTE:    The  first  card  in  this  group  must  always  be  the  passenger  car  description 
if  the  option  is  exercised. 
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CARD  NO.  10  —  SIMULATION  DESCRIPTION 
FORMAT  (I2,5F10.2) 
MAXIMUM  NO.  OF  CARDS  --  7 
VARIABLE  OVERRIDE  -  SIM 


COLUMNS 


INPUT  VARIABLE 


DESCRIPTION 


1-2 
3-12 


13-22 
23-32 
33-42 
43-52 


lA 
Z(l) 

Z(2) 
Z(3) 
Z(4) 
Z(5) 


Activity  Number 

Worksite  Switch 

1  =  Full  size  patch 

2  =  Partial  size  patch 

3  =  Lanes  closed 

Worksite  size  multiplier  factor 
Worksite  size  add  on  constant 
Number  of  simulation  iterations 

Worksite  spacing  switch 

1  =  Random  spacing 

2  =  Uniform  spacing 


CARD  NO.  11  —  OPERATION  UNIT  COSTS 

FORMAT  (I2,2F4.2) 

MAXIMUM  NUMBER  OF  CARDS  --  4 

VARIABLE  OVERRIDE  -  FUEL , TIRES , OIL ,SINDEX 


COLUMN 


INPUT  VARIABLE 


DESCRIPTION 


1-2 


3-6 
7-10 


II 


z(i)  • 

Z(2)  • 


Unit  Switch 

1  =  Fuel 

2  =  Oil 

3  =  Tires 

4  =  Services  Index 

Unit  Cost  of  Switch  item  for  passenger 
cars 

Unit  cost  of  Switch  item  for  all  commercial 
vehicles  (the  composite  commercial) 
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CARD  NO.  12  --  PRINT  SWITCH 

FORMAT  (212) 

MAXIMUM  NO.  OF  CARDS  --  1 

VARIABLE  OVERRIDE  -  IPRINT  ,  JPRINT 


COLUMNS 


INPUT  VARIABLE 


DESCRIPTION 


1-2 


IPRINT 


3-4 


JPRINT 


CARD  NO.  13  --  LANE  WIDTH 
FORMAT  (F5.2) 

MAXIMUM  NUMBER  OF  CARDS  —  1 
VARIABLE  OVERRIDE  -  WIDTH 


COLUMN 


INPUT  VARIABLE 


Print  Switch 

1  =  Direction,  Years,  Year  Total,  Total 

2  =  Year,  Year  total.  Total 

3  =  Year  total  ,  total 

4  =  Total 

Print  Switch 

1  =  Assumption,  Matrices 

2  =  No  Print 


DESCRIPTION 


1-5 
CARD  NO.  14  —  INCOME 


"WIDTH 


Lane  width  in  feet, 


FORMAT  (12) 

MAXIMUM  NUMBER  OF  CARDS  —  1 

VARIABLE  OVERRIDE  -  INC 


COLUMN 


INPUT  VARIABLE 


DESCRIPTION 


1-2 


INC  • 


Income  level  for  value  of  time  computation 
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CARD  NO.  15  -  OCCUPANCY  MOVES 
FORMAT  (2F5.2) 

MAXIMUM  NUMBER  OF  CARDS  --  1 
VARIABLE  OVERRIDE  -  WALKJCMOVE 


COLUMN 


INPUT  VARIABLE 


DESCRIPTION 


1-5 


6-10 


WALK 


•  TCMOVE 


Walking  speed  between  worksites  within  a 
traffic  control  zone  in  mph 

Travel  speed  between  traffic  control 
zones  in  mph. 


CARD  NO.  16  —  TERMINAL  PSI 
FORMAT  (F5.2) 

MAXIMUM  NUMBER  OF  CARDS  —  1 
VARIABLE  OVERRIDE  -  PSIRS 


COLUMN 


INPUT  VARIABLE 


DESCRIPTION 


1-5 


•  PSIRS 


CARD  NO.  17  —  DETOUR  PARAMETERS 
FORMAT  (7F5.2) 
MAXIMUM  NUMBER  OF  CARDS  -  1 
VARIABLE  OVERRIDE  -  DETOUR 


The  value  of  the  present  serviceability 
index  when  resurfacing  should  occur 


COLUMN 


INPUT  VARIABLE 


DESCRIPTION 


1-4 
5-8 


DETOUR(l)    • 
DET0UR(2)    • 


Distance  between  interchanges  in 
miles 

Detour  length  in  miles 
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9-12 

13-16 
17-20 
21-24 


DET0UR(3) 

DET0UR(4) 
DET0UR(5) 
DET0URC6) 


25-28  DET0UR(7) 

CARD  NO.  18  —  DESIGN  LIFE 
FORMAT  (2F5.2) 
MAXIMUM  NUMBER  OF  CARDS  -  1 
VARIABLE  OVERRIDE  -  DLIFE,  RLIFE 
COLUMNS  INPUT  VARIABLE 


Average  speed  limit  on  detour 
with  signals 

Normal  detour  volume  ADT  1000 's 

Detour  capacity  in  1000 's 

Detour  signal  stops  for  all 
vehicles 

Directional  lanes  on  detour 


1 


DESCRIPTION 


1-5  •  DLIFE 

6-10  •  RLIFE 

CARD  NO.  19  —  ACTIVITY  STANDARD 

FORMAT  (212,  3F7.2) 

MAXIMUM  NUMBER  OF  CARDS  -3x7 

VARIABLE  OVERRIDE  -  PS 


Original  pavement  design  life. 
Resurfaced  pavement  design  life. 


COLUMNS 

INPUT  VARIABLE 

DESCRIPTION 

1-2 

lA   • 

Activity  Number 

3-4 

11 

PAVEMENT  Switch 

1  =  PCC 

2  =  Bituminous 

3  =  Composite 

5-11 

s(i)  • 

Crew  Hourly  Costs 

12-18 

S(2)  • 

Material  costs  per  workload  unit. 

19-25 

S(3)  • 

Production  rate  in  workload  units  per  hou 
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CARD  NO.  20  -  CAPACITIES 

FORMAT  (5F5.2) 

MAXIMUM  NUMBER  OF  CARDS  -  5 

VARIABLE  OVERRIDE  -  CAP 

COLUMNS  INPUT  VARIABLE 


DESCRIPTION 


1-5 

CAP(l)    • 

6-10 

CAP(2)    • 

11-15 

CAP(3)    • 

16-20 

CAP(4)    • 

21-25 

CAP(*)    • 

Capacity  of  roadway  with  one  lane  closed. 
Capacity  of  roadway  with  two  lanes  closed. 
Capacity  of  roadway  with  three  lanes  closed, 
Capacity  of  roadway  with  four  lanes  closed. 
Capacity  of  roadway  -  no  lanes  closed 


NOTE:  If  all  lanes  are  closed,  capacity  shall  be  of  the  detour. 
*Maximum  Directional  Lanes  +  1 

Card  no.  21  —  freeway  design  speed 

FORMAT  (F5.2) 

MAXIMUM  number  OF  CARDS  -  1 

VARIABLE  OVERRIDE  -  DSPEED 


COLUMNS 


input  variable 


DESCRIPTION 


1-5 


DSPEED' 


Freeway  design  speed  in  m.p.h 
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CARD  NO.  22  --  AVERAGE  ACCIDENT  COST 
FORMAT  (F5.0) 

MAXIMUM  NUMBER  OF  CARDS  -  1 
VARIABLE  OVERRIDE  -  AACOST 


COLUMNS 


INPUT  VARIABLE 


DESCRIPTION 


1-5 


AACOST 


Average  cost  of  an  accident  in  dollars 


CARD  NO.  23  —  VEHICLE  OCCUPANCY 
FORMAT  (2F5.2) 
MAXIMUM  NUMBER  OF  CARDS  -  1 
VARIABLE  OVERRIDE  -  OCWORK,  OCSCHL 


COLUMNS 

INPUT  VARIABLE 

DESCRIPTION 

1-5 

OCWORK  ' 

Occupancy  per  vehicle  for  work  trif 

6-10 

OCSCHL   • 

Occupancy  per  vehicle  for  school 
trips 

CARD  NO.  24  —  COMMERCIAL  TIME  VALUE 
FORMAT  (F5.2) 

MAXIMUM  NUMBER  OF  CARDS  -  1 
VARIABLE  OVERRIDE  -  COMVOT 


COLUMNS 


INPUT  VARIABLE 


DESCRIPTION 


1-5 


COMVOT 


The  value  of  time  per  hour  assigned 
to  a  composite  commercial  vehicle 
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CARD  NO.  25  —  SPEED  LIMITS 
FORMAT  (5F5.2)  ' 
MAXIMUM  NUMBER  OF  CARDS  -  1 
VARIABLE  OVERRIDE  -  SLIMIT 


COLUMNS 

INPUT  VARIABLE 

DESCRIPTION 

1-5 

SLIMITCD      • 

Speed  limit  for  freeway  with  one 
lane  closed 

6-10 

SLIMITC2)      • 

Speed  limit  for  freeway  with  two 
lanes  closed 

11-15 

SLIMITC3)      • 

Speed  limit  for  freeway  with  three 
lanes  closed 

16-20 

SLIMIT(4)      • 

Speed  limit  for  freeway  with  four 
lanes  closed 

21-25 

SLIMIT(*)      • 

Speed  limit  of  freeway  with  no 
lanes  closed 

*Maximum  Directional  Lanes  +  1 
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APPENDIX  A 


Program  Source  Statements 
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c* 

c* 

c* 

c 

c 

c 

c 

c 

c* 

c* 

c* 


M    A    I    N    T 

4c  4c «  4: «  «  « i«c  4(  4c «  <(  "«<  4c  4c « ;«c  :ic 
4c4:4c4c4c4c*«  «  4:«4: 4c«4c4c «« 

JNTEGtR  COSTS( 
COMMON 

1  CWT, 

2  IH0UR(24,7}, 

3  LANESf 

4  0C0STS(65,2), 

5  RLOC(IOOO), 

6  SPEEaN(24), 

7  VOLUME! 2) , 
COMMON/ASSUME/ 

1  DET0UR(7)t 

2  HW0RK(7i, 

3  IMT, 

4  0IL(2), 

5  PSIRS, 

6  SLIMITtS), 

7  WALKf 
MI  =  l 
MG=3 

CALL  INITAL 
CALL  OPPARA 
1F(JPRINT.N£.1 
CALL  RPRINT 
100  CONTINUE 
CALL  YEAR 
STOP 
END 


4c4c  4c4c  «♦  4c«  «*  4c4c  4c4c  4c4c  i(c « 

«4ci)c4c4c4c  4c4c4c*4c4c4c«  4:4i4c4c 
4c  4e «  4c  4c  4c  4c  4c  4c  4c «  4c «  4c  4c  4c  4: 4c 

ECONOMIC 

ROADWAY 

F 
ENANCE    AN 

4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c4c  4c « 
4c  4: 4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c 
4c  4c  4c  4c  4: 4c  4c  4c  4c  4c  4c  4e  4c  4c  4c  4c  4c  4c 

7,5,8,2) 

ARHO, 

DV0L(24), 

ITYPE, 

MI, 

PATCHFC 1000), 

S1M(7,5), 

SPLIT(2), 

VTRAT£(5,40), 

ALIGN (3, 6), 

DLIFE, 

lOIR, 

JPRINT, 

OVERi 12,7), 

RATEI , 

TCMOVE, 

MIOTH, 


)GOTO  100 


4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c 
*4c 4:«  4c 4c  4c 4c  4c 4c 4c 4c  4=  4c 4c 4c 4c 4c  4c 4c 4c 4! 4c 4c 4c 4c 4c 4c 4c 4c 4c«  4c 4c  4c 4c  4c 4c 4c 4c  4c 4c 
4c  4c  4: 4c  4c  4c  4: «  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4: 4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4c  4: 4c  4c  4c  4c  4c 

ANALYSIS 
0  F 

OCCUPANCY 
0  R 
D    RECONSTRUCTION 

4c 4c  4c 4c  4c 4c  4c 4c  4c 4c  4^^  4c 4c 4c 4c  «4c  4c  4c 4c 4c  4c  4c  4c  4c 4c 4c  4c 4c  4c 4c  4c 4c 4c 4c  4c 4c 4c  4c  4c 4c 
4c 4: 4c 4c 4c 4c 4: 4c  4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c  4c 4: 4c 4c  #4c 4c 4c 4c 4c 4c 4c  4c 4c  4c 4c  4c 4c 4c 4: 4c 4c 
4c 4c 4c 4c  4c 4c 4c 4c  4c 4c*4c 4c 4c  *4c 4c 4c 4c 4c  4c 4c  4c 4c 4c 4c**4c 4c 4c 4c  4c 4c  4c 4c  4c 4: 4c 4c 4c 4c 


CAP (5), 

HV0L(24), 

lY, 

MO, 

PATCHPJ 1000), 

SP{5,11)  , 

SW0RK(7) , 

ZONEL( /,4) 

AACOST, 

FU£L(2) , 

INC, 

OCSCHL, 

PCTADT(24,7,2,2) 

RLIFE, 

TIRES(2) , 

WEIGHT( 10,3) 


COSTS, 
lU, 

KP, 

NYEARS, 

PROJLN, 

SPEE00(24), 

TRUCKS(2), 

COMVOT, 
HRS(7,24,4) , 
IPRINT, 
OCv^ORK, 
,PS(7,3,3), 
SINDtX, 
TLEVEL(7), 
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c 

Q* «« ***«***«**X'*«* ************************************** «**«*******«#c 

(;»***««*♦«**««***«*  SLOCK         DATA  ****«**»«******C 

(;«««j!c«#««*«3!c*******  program  'EARUMAR*  ♦**«t*»**««X'***«C 

Q  ;«c  4c4:  :4c4:  «  «  «4:  «  4:4:=«e 'i('4c4''ic  ^^♦^  « :t'3)' A««  *«  «*  3tc»  *4:  «>ic  ;4c;«(#  :(c  ^3ic :«(«  «:tc;ic4c  4::(c  jtc^c 

c 

BLOCK  DATA 

CQMMQiN</ASSUME/  ALIGN(3,6),  AACOST,  COMVOT  , 

1    D£TUUR(7),  DLIFE,  FUEL(2J,  HRS(7,24,4), 

I    HW0RK{7i,  lUiR,  INCr  IPRINT, 

3  IWT,  JPRINT,  OCSCHL,  OCWURK, 

4  0IL(2),  0V£R(12,7),  PCTAUT(24,7,2,2)f PS(7,3,3) , 

5  PSIRSf  RATEl,  RLIFE,  SINOEX, 

6  SL1MIT(5),  TCMOVE,  TIRES(2)f  TL£VEL(7), 

7  WALK,  WIDTH,  WEIGHT(10,3) 
C 

C   **«ALIGNMENT  MI LEAGES , AVERAGE  ACCIDENT  COST .COMMERCIAL  VALUE  OF  TIME 

DATA  AL 1 GN, A ACQS T, COMVOT /lb«0. 0,850.0,6.72/ 
C 
C   ***DETOUR  PARAMETERS 

DATA  DtTOUR/2.0, 2. 6, 45. 0,20. 0,2. 4, 0.8, 2.0/ 
C 
C   =>*«L)i-3iGN  LIFE,  UNIT  PRICE  OF  FUEL,  OCCUPANCY  HOURS 

DATA  DLIFE, FUEL, HRS/20. 0,0-4, 0.3, 672*0.0/ 
C 

C   ***ANNUAL  WORKLOAD,  DIRECTION  BALANCE  INDEX,  AVERAGE  INCOME  LEVEL, 
C   ***ANaLYSIS  print  SWITCH 

DATA  HWORK,lDiR, INC, I PRINT/ 7*0. 0,0, 4, 1/ 
C 
C   ***»  VEHICLE  CLASSES, INITIAL  PRINT  SWITCH,  OCCUPANTS  FOR  SCHOOL  L    WORK  TRIPS 

DATA  IWT, JPRINT, OCSCHL, OCWORK/4,  1,2.5,  l'.4/ 
C 
C   ***UNIT  PRICES  OF  OIL 

DATA  OIL/0.8,0.4/ 
C 
C   ***OVERRIDt  PARAMETERS 

DATA  OVER/9. 0,50. 0,1. 0,0. 0,0. 5, 1.0, 3.0, .25, .5, 1.0,. 10, 0.0, 
2 8. 0,50. 0,1. 0,0.0, .5, 1.0, 1.0, .25, .5, 1.0,. 10,0.0, 
38. 0,50. 0,1. 0,0.0, .5, 1.0, 1.0, .25, .5, 10.0, .10, 2.0, 
48. 0,50. 0,1. 0,0.0, .5, 0.2, 1.0, .25, 2. ,1.0,. 10, 0.0, 
5 8. 0,50. 0,1. 0,0.0, .5, 1.0, 1.0, .25,. 5, 1.0, 0.1, 0.0, 
0  0.0,50. 0,1. 0,0.0,.!}, 1.0, 1.0,. 25, .5, 1.0, .10, 0.0, 
7 12. 0,1 20  0., I. 0,0. 0,0-5, 0.0, 0.0, .25, 1.0, 10.0, .25, 0.0/ 
C 
C   ***TRAFFIC  DISTRIBUTIONS 

DATA  PCTADT/. 002, -000,. 0  01,. Oil,. 02 6,. 074,. 2 17,. 190,. 070,. 046, 
A. 041, 
8. 043,. 05 7,. 053,. 05  0, .035 , . 023, . 017 , -014, -OOa ,. 005, .0  08 , .004, .005 , 
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C.037, 

D.024, 
t.OOOf 
F.068, 
&.0U9, 
H.055, 
I .004, 
J.05^i, 
K.0o6f 
L.020, 
M.004» 
N.018, 
0.016, 
P. 023, 


.014 
.025 
-00  0 
.OBO 
.uOti 
.057 
.173 
.  02d 
.062 
.021 
.00  5 
.021 
.024 
384* 


.005,1 
.032,1 
.000,. 
•090,. 
.015,. 
.057,. 

.010,. 

.015,2 
.013,. 

72*.  0, 
.  0  85  ,  . 
0/ 


001, 
034, 
000, 
104, 
031, 
05  5, 
104, 
000, 
060, 
4*.0 
024, 
.004 
03  9, 


.000,. 
.038,. 
.001,. 
.141,. 
.050,. 
.050,. 
.031,. 
.002,. 
.056,. 
,.019, 
.014,. 
,.002, 
.063,. 


001, 
085, 
002, 
100, 
056, 
045, 
013, 
013, 
060, 
.006 
020, 
.001 
181, 


.004,. 
.182,. 
.006,. 
.039,. 
.055,. 
.041,. 
.036,. 
.013,. 
.062,. 
,.004, 
.0  52,. 
,.000, 
.098,. 


004,. 
141,. 
028,  . 
010,  . 
050,. 
000,. 
019,. 
012,. 
070,. 
.002, 
288,. 
•  000, 
105,. 


005,. 
117,. 
0  73,. 
002,. 
051,. 
000,. 
025,. 
012,. 
074,. 
.001, 
299,. 
•  000, 
036,, 


Oil, 
099, 
071, 
045, 
050, 
000, 
010, 
017, 
063, 
.0  01 
105, 
.0  00 
039, 


.018,. 
.090,. 
.049,. 
.046,. 
.043,. 
.000,. 
.016,, 
•023,. 
.041,. 
,.003, 
.034,. 
,.000, 
.092,. 


016,. 
001,. 
062,. 
029,. 
037,. 
000,. 
065,. 
053,. 
031,. 
.OOo, 
019,. 
.006, 
108,. 


017, 

J  00, 

073, 

029, 

0  36, 

000, 

098, 

069, 

022f 

.013, 

029, 

.007, 

071, 


***ACTWITY    STANDARDS 

DATA    PS/ 48. 40, 3 1.92, 48. 98, 26. 62, 35. 91, 0.0, 0.0, 
155.83,28.98,69.42,0.0,0.0,0.0,0.0, 
255.8  3,0.0,48.98,28.9  8,35.91,0.0,0.0, 
3  6.25,0.20,86.40, .0  75  ,.70,0.0,1.2, 
4. 50, .10, 5. 07, 0.0, 0.0, 0.0, 1.2, 
5. 50, 0.0, 86. 40, .10, .70, 0.0, 1.20, 
6 11. 1,5.0,. 5, 280. 0,30. 0,0. 0,700.0, 
7ldO.  0,15  00.0,5.6,0.0,0.0,0.0,700.0, 
818  0.0,0.0,0.5,1500.0,30.0,0.0,700.0/ 

**«RESUKf ACING    PSI,  INTEREST    RATE, RESURFAC ED    LIFE,    SERVICES    INDEX 
DATA    PSIRS,RATEI,RLlFE,SINDfcX/2.0,.08, 10.0,1.5/ 

***SPtEU    LIMITS, TRAVEL    SPEED    BETWEEN    ZONES,    UNIT    PRICES    UF    TIRES, 
***ACCUMULATE0    MAINTENANCE    LEVELS 

DATA    SL I  MI T, TC MO VE,T IRES, TLEVEL/'fr*5 0.0,6 0.0, 20.0,0. 1,0. 2 ,7*0.0/ 

***TRAVtL    SPEED    WITHIN    ZONE,    LANE    WIDTH 
DATA    WALK, WiDTH/2. 0,12.0/ 

***VEHICLE  PARAMETERS 

DATA  Wt I GHT/4. 2, 15. 4,39. 8,53.6,6*0.0,93.1,2.9,2.2,2.8,6*0.0, 
13000.0,7300.0,24400.0,39  300.0,6*0.0/ 

END 
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c 

c*** 
c 


^P  "^n  ^P  ^*  •T^  TP  ^h  ^^  ^T'^h 

********** 
********** 
*Jic*;tc*:tc*3ic4c;«c 
********** 
********** 
********** 
********** 


SUBROUTI 
INTEGtR 
COMMON 
i  CWT, 
IH0UR(2 
LANES, 
OCOSTS( 
RLUCdO 
SPEEONt 
VOLUME ( 
COMMON/A 
1  OETOURC 
HW0RK(7 
IWT, 
OIL (2), 
PSIRS, 
SLIMIK 
WALK, 
01  MENS  10 
OIMEWSiO 
OIMENSIO 


****************************** 
****************************** 

VnP  V  ^  " 

*****  SUBROUTINE  INITI 

***** 

*****  PROGRAM  'EARUMAR 

***** 

****************************** 

****************************** 

****************************** 

N£  INITAL 
C0STS(7,5,8,2) 

ARHO, 


**************** 
**************** 

****** 
AL         ****** 

****** 
•  ****** 

****** 
**************** 
**************** 
**************** 


*********(; 
****♦****(; 
*********(; 

*********Q 

*********c 
*********c 

*********Q 

*********(; 
*********(; 
*********£ 


0V0L<24), 

ITYPE, 

MI, 

PATCHFi lOOOJ, 

SIM(7,5J, 

SPLIT(2), 

VTRATE{5,40), 

ALIGN (3, 6), 

DLIFE, 

lOlR, 

JPRINT, 

0VER(12,7), 

RATEI, 

TCMOVE, 

WIDTH, 
N  CCAP(5,3J 
N  INOCC(lO,3J,IbAL(7,2,2 
N  RAND0M(2),PERCNT(6,2,2 


4,7J, 

65,2), 

00), 

24), 

2), 

SSUME/ 

7), 

if 


5), 


CAP (5), 

HV0L(24), 

lY, 

MO, 

PATCHPC 1000), 

SP{5,  11), 

SW0RK(7) , 

Z0NEL(7,4) 

AACOST, 

FUEL(2)  , 

INC, 

OCSCHL, 

PCTAUT(24,7,2,2) 

RLIFE, 

TIRES(2), 

WEIGHT(ia,3) 

),Z(24),SSIMI7,3,5) 
) 


COSTS, 

lOf 

KP, 

NYEARS, 
PROJLN, 
SPE£0D(24) , 
TRUCKS(2) , 


COMVOT, 
HRS(7,24,4), 
IPRINT, 
OCWORK, 
,PS(7,3,3), 
SINOEX, 
TL£VEL(7), 


=**END    OF    DATA    TEST    VARIABLE 
DATA    ENOVER/*    END'/ 


***CAPACTIES    BY    EXPRESSWAY    TYPE    AND    CLOSURE 

DATA    CCAP/1.7, .8, 4. ,0.0, 0.0, 3. 8, 1.7, .8, 6,, 0.0, 5. 7, 3. 8, 1.7, .8, 8./ 

***OESIGN    SPEED 

DATA    OSPEED/70./ 

***TRAFFIC  DISTRIBUTIONS  BALANCING  INDICES 
DATA  IBAL/28*0/ 


***ALLOWABLE    OCCUPANCY 
DATA    IN0CC/30*0/ 
IN0CC(10,1)=10 
1N0CC(10,2)=7 
INOCCilO,3)=18 
IN0CC(9,1)=3 
IN0CC(9,2)=15 
INaCC(9,3)=18 


INTERVAL 
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c 

C   ***OEFAULT  VALUES  FUR  THE  SIMULATION  PROCESS  FOR  THREE  PAVEMENT  TYPES 
DATA  SSIM/l.t2.f I. t3.«2.f i.»3.t l.»3.>i.»3. ,3.,3.f3.t l.t3.»L., 
i3.,2.,3.,3.tl.,l«,0.>i2.T3.f  L0.tL300.t 1. »12.t.l»0. ,0. , 0. , 1300. » 
2iO.»0.fU.ti2.f3.t0.t 1300. fU. >O.»I.t0.tI0.tO.tO.»O.f0.«O.tO.tO.» 
30. ,0.tO. tO., l.f 0.>10.»0.f 0.»  LOO.OtlOO.Of I.f230.0ti00.tl00.0f lO.f 
4100.0,23  0.0*100. ,!.» 1. «1. ,10.,100.0,l.,l.,230.0,100.f 1., 10.,1.,1., 
31.t2.,l. tl*r2. fi.f 1. tl.fl. tl.tl.f2.fl.tl.fl.,2.tl.tl«f2./ 

C 

C   ♦♦♦TRAFFIC  DISTRIBUTION  BETWEEN  TRIP  PURPOSES 
OATA  PERCNT/.33l,.ia9,.2d4,.00l, .093,.100f 
1. 3 3 1,. I 89,. ^ 84,. 001, .095,. 100, 
2. 331,. 189,. 284,. 001,. 095,. 100, 
3. 3 31,. 189,. 284,. 001,. 093,. 100/ 

1  FURMAT(I2,A4J 

2  F0RMAT<3I2,24F3.3) 

3  F0RMAT(2I2,3F7-2) 

4  F0RMAT<2I2,6F3.3> 

5  FORMAT(3F5.0) 

6  FORMAT(I2,5F10.2) 

7  F0RMAT(I2,2F4.2) 

8  FURMAT(8F3.2) 

9  F0RMAT(3I2,4F3.2) 
C 

C 

C   ♦♦♦I.NlPUT  INITIAL  AND  FINAL  ANALYSIS  YEAR  VOLUMEfAM  PEAK  SPLIT  AND  4    TRUCKS 

RtAD(MI,8J(VaLUMEIJ) , SPLI T { J ) , TRUCKS( J ) ,J=1,2J 
C 

C   ♦♦♦INPUT  ANALYSIS  YEARS, PAVEMENT  TYPE, PROJECT  LENGTH  IN  MILES,  AND  PAVEMENT 
C   ♦♦♦THICKNESS  FOR  SURFACE, BASE  AND  SUBGRADE 
C   ♦♦♦  PAVEMENT  TYPES 

C   ♦♦♦  1.  CONCRETE 

C   ♦♦♦  2.  BITUMINOUS 

C   ♦♦♦  3.  COMPOSITE 

C 

REAUIMI,9INY£ARS,KP, ITYPE, PROJLNf THICK  1, THICK2,THICK3 

LANES=KP-«-l 
C 
C   ♦♦♦ESTABLISHMENT  OF  THE  DEFAULT  OPTION  FOR  WORKSITE  SIMULATION  GIVEN  ITYPE 

DO  1030  IA=1,7 

DO  1051  J=l,5 
1031  SIM( IA,J)^SSIM{IA, ITYPE, JJ 
1050  CONTINUE 
C 
C   ♦♦♦ESTABLISH  DEFALUT  OPTION  FOR  CAPACITY 

DO  1060  J=l,5 

CAP( J)=CCAP{ J,KP) 
1060  CONTINUE 
C 
C 
C 

C   ♦♦♦INITIALIZE  REMAINDER  OF  TRAFFIC  DISTRIBUTIONS 
C 
1000  CONTINUE 
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c 

1020 
C 


1030 
1032 
C 


1031 
lulO 
C 

c 

c*** 

1 100 

c 

1101 

c 

1102 
1105 

C 

C«** 
1200 

C 

c 

c»** 
c*** 
c*** 


DU  1010  IT=1,6 

TtST  FOR  OlRECTiUNS  ILZ    IDENTICAL 
GOTO (1032, 1020, I  020, 1020, 1032, 1020), IT 

CONTINUE 

INITIALIZE  DIRECTION  2 
DO  1030  IH=1,24 
PCTA0T{IH,ir,2,lJ=PCTADT(IH, IT, 1,1) 

CONTINUE 
CONTINUE 

INITIALIZE  FINAL  VOLUME  DI STRI bUTIONS 
DO  1031  IH=l,24 

PCTA0T(IH,IT,1,2)=PCTA0T( IH,IT,l,i) 
PCTADTdrt, IT, 2,2 )=PCTAOT( I H, IT, 2,1) 

CONTINUE 
CONTINUE 

DETERMINATION  OF  AN  AASHO  BASED  ANNUAL 
GOTOdlOO, 1101, 1101)  ,  ITYPE 


18  KIP  AXLES  FACTOR 


AASHO  6ASED  ACCUMULATED  18  KIP  AXLES  TO  1.5  PSI  AS  A  FUNCTION  THICKNESS 

RHO=.88*(THICKH-l)**7.35 

GOTO  1102 

AASHO  THICKNESS  FACTOR  FOR  BITUMINOUS  PAVEMENTS 
THICK=.44*THICK1+.14*THICK2+.1*THICK3 


AASHO  BASED  ACCUMULATED  18 
RH0=2.25*(THICK+1)**8.94 
ARHO=RHO/20000000 
CONTINUE 


KIP  AXLES  TO  1,5  PSI  AS  A  FUNCTION  THICKNESS 


READ  TYPE  OF  OVERRIDE 
READ<MI, 1) IP, END 


OR  END  OF  OVERRRIDES 


TEST  FOR  END  OF  OVERRIDE  DATA 
IF(END.EQ.ENOVER)GOTO  1299 


60  TO  PROPER 
THE  OVERRIDE 


OVERRIDE 
SWITCHES 


ROUTINE 

ARE  SUMMARIZED 


AS  FOLLOWS: 


1.  HOURLY  VOLUME  DISTRIBUTION  BY  TRIP  PURPOSE 

2.  PERCENT  OF  TOTAL  VOLUME  BY  TRIP  PURPOSE 

3.  DIRECTIONAL  BALANCING  SWITCH 

4.  PERMITTED  OCCUPANCY  INTERVAL  BY  ACTIVITY 

5.  A  RANGE  OF  OVERRIDE  PARAMETERS  BY  ACTIVITY 

6.  VERTICAL  AND  HORZONTAL  ALIGNMENT 

7.  VEHICLE  CLASSIFIACTION  DATA 

8.  MAINTENANCE  SIMULATION  PARAMETERS 

9.  UNIT  OPERATING  COSTS 

10.  PRINT  SWITCH 

11.  PAVEMENT  LANE  WIDTH 

12.  INCOME  LEVEL 
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C***  13.  SPEEDS  FOR  WALKING  AND  TRAVELING  ON  ROADWAY  BY  MAINT.  CREW 

C***  14.  TERMINAL  PSI  VALUE 

C*«*  15.  DETOUR  PARAMETERS 

C***  16.  DESIGN  LIFE 

C***  17.  ACTIVITY  STANDARD 

C***  18.  CLOSURE  CAPACITIES 

C***  19.  FREEWAY  DESIGN  SPEED 

C***  20.  AVERAGE  ACCIDENT  COSTS 

C***  21.  VEHICLE  OCCUPANCY 

C***  ZZ.    COMMERCIAL  VALUE  OF  TIME 

C***  23.  SPEED  LIMITS 

C 

GOTU(1201f 1203, 1205, 1206, 1208, 1209, 1210,1212 f 1220 t 1225, 1226) ,IP 

IP=IP-11 

GOTU( 1227, 1228, 1229, 1230,1231,1232,1234,1235,1236, 123  7,1238)  ,IP 

IP=IP-11 

GGT0tl239) ,IP 
C 

C   *****   PACKET  NUMBER   1 
C 

C***   READ  TRIP  PURPOSE,  DIRECTION,  VOLUME  LEVEL, &  HOURLY  DISTRIBUTION 
C   ***SWITCHES  FOR  TRIP  PURPOSE 
C   ♦**  1.  WORK  TRIPS 

C   *♦*  2.  PERSONAL  BUSINESS  TRIPS 

C   *♦*  3-  SOCIAL-RECREATIONAL  TRIPS 

C   ***  4.  SCHOOL  TRIPS 

C   ***  5.  VACATION  TRIPS 

C   ***  6.  COMMERCIAL  TRIPS 

1201  READ (MI, 2) IT, ID, LE VEL, ( Z { I ) , 1= 1 , 24) 
C 

C***   TEST  FOR  END  OF  HOURLY  DISTRIBUTION  OVERRIDE 

IF(IT.£Q.0)G0TO  1200 
C 
C***   SET  INDEX  TO  INDICATE  OVERRIDDEN  DISTRIBUTIONS 

IBALdT,  I0,LEVEL)  =  1 
C 
C***   REPLACE  OLD  WITH  NEW  DISTRIBUTION 

DU  1202  1=1,24 

PCTADT{I,IT,  10,  LEVEL  )  =  ZU) 

1202  CONTINUE 
C 

C***   GET  NEXT  HOURLY  DISTRIBUTION 

GOTO  1201 
C 

C   *****   PACKET  NUMBER   2 
C 
C***   READ  DIRECTION,  VOLUME  LEVEL, £  TRIP  PURPOSE  DISTRIBUTION 

1203  READ  (MI,  4)  ID,  LEVEL,  (Z(  I)  ,I  =  l,t>) 
C 

C***   TEST  FOR  END  OF  TRIP  PURPOSE  DISTRIBUTIONS  OVERRIDES 

IF(iD.Eg.0)G0T0  1200 
C 
C***   REPLACE  OLD  WITH  NEW  TRIP  PURPOSE  DISTRIBUTION 

DO  1204  1=1,6 
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PERCNTd,  ID,  LfcVEL  1=^(1  ) 
1^04    CONTINUE 
C 
C***       GET    NEXT    TRIP    PURPOSE    DISTRIBUTION    OVERRIDE 

GOTO    1203 
C 

C   #*««♦   PACKET  NUMBER   3 
C 
C**«   SET  INDICATOR  TO  COMBINE  AM  L    PM  PEAKS 

1205  IDIR=3 
GOTO  1200 

C 

Q       *****   PACKET  NUMBER   4 

1206  COi^'TINUE 

DO  1207  1=1,9 
C 

C***   OVERRIDE  ALLOWED  OCCUPANCY  HOUkS 
C 
C***   READ  ACTIVITY  NUMBER,  START  TIME,  FINISH  TIME 

READ(MI,2)(IN0CC<I,J),J=1,3) 
C 

C   «**iF  OCCUMPANCY  TIME  FOR  ALL  ACTIVITIES  IS  INPUT , • INOCC( I , 1 J =10'  THEN 
C   ***THE  DEFALT  OPTION  IS  OVERRIDEN 

IF{INOCC(I,l}-EU.lO)INOCC(iO,l)=0 
C 
C***   TEST  FOR  END  OF  OCCUPANCY  HOURS  OVERRIDES 

IF(IN0CC{I,1).EQ.0)G0T0  1200 
C 
C***   GET  NEXT  OCCUPANCY  HCUR  OVERRIDE 

1207  CONTINUE 
C 

C***   DUMMY  READ  OF  BLANK  CARD  FOLLOWING  NINE  OVERRIDES 

READiMI, 1)11 
C 
C***   GET  NEXT  TYPE  OF  OVERRIDE 

GOTO  1200 
C 

C   *****   PACKET  NUMBER   5 
C 

C***   READ  OVER  TYPE,  ACTIVITY,  AND  VALUE 
C   **«SWITCHES  FOR  OVERRIDE  PARAMETERS 

1.  CONTINOUS  CREW  WORK  HOURS 

2.  LOCATION  OR  JOINT  SPACING 

3.  WORKLOAD  MODEL  FACTOR 

4.  WORKLOAD  MODEL  FIXED  ANNUAL  RATE 
3.  TRAVEL  TIME  HOURS 

6.  MAINTENANCE  LEVEL 

7.  CURE  TIME  IN  HOURS 

8.  TRAFFIC  CONTROL  INSTALLATION  TIME  IN  HOURS 

9.  MAXIMUM  TRAFFIC  CONTROL  ZONE  LENGTH  IN  MILES 

10.  VOLUME/CAPACITY  RATIO  ALLOWED 

11.  MINIMUM  TRAFFIC  CONTROL  LENGTH  IN  MILES 

12.  SHOULDERS  OPEN 

1208  READIMI, 3H1,IA, VALUE 


c 

*** 

c 

*** 

c 

*** 

c 

*** 

c 

*** 

c 

♦  ** 

c 

*** 

c 

*** 

c 

*** 

c 

*** 

c 

*«* 

c 

*** 
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c 

C***   TEST  FOR  END  OF  OVER  OVERRIDES 

IF( Il.EU.OlGOrO  1200 
C 
C***   REPLACE  ASSUMED  VALUE  WITH  OVERRIDE  VALUE 

OVERdif  IA)  =  VALUE 
C 
C***   GET  NEXT  OVER  OVERRIDE 

GOTO  1208 
C   *****   PACKET  NUMBER   6 
C 

c 

C   ***DESIGN  ALIGNMENT, VERTICAL  AND  HORIZONTAL 

1209  CONTINUE 
C 

C   ***READ  ALIGNMENT  TYPE' +GRAOE , -GRADE, DEGREE S« , MAGNI TUDE  AND  MILEAGE 

REAUIMI, 3)11, 12, VALUE 
C 
C   ***TtST  FOR  END  OF  OVERRIDE 

IF(I1«EQ.OJGOTO  1200 
C 
C   *«*REPLACE  ASSUMED  VALUE  HITH  OVERRIDE  VALUE 

ALIGN(ll,I2)=VALUE 
C 
C   ***GET  NEXT  OVERRIDE 

GOTO  1209 
C 

C   ***REA0  VEHICLE  WEIGHT,  PERCENTAGE  AND  COSTS,  NOTE  THAT  FIRST  CARD 
C   ***MUST  BE  PASSENGER  VEHICLES 
C 
C   *****   PACKET  NUMBER   7 

1210  IWT=0 

1211  READ(MI,5J(Z(J), J=1,3J 
C 

C   ***TEST  FOR  END  OF  OVERRIDE 

IF(Z(l).EQ.0iGOTO  1200 

IWT=IWT+l 

WEIGHT( IWT,1  )  =  Z( 1) 

WEIGHT(IWT,2)=Z(2)/100 

WEIGHT(IWT,JJ=Z(3) 

GOTO  1211 
C 

C   *«*««   PACKET  NUMBER   8 
C 

C   ♦**READ  ACTIVITY  AND  SIMULATION  PARAMETERS 
C   **♦  1.  WORKSITE  TYPE 

C   *«*  2.  WORKSITE  FACTOR 

C   ***  3.  ADO  ON  VALUE 

C   ♦**  4.  NUMBER  OF  ITERATIONS 

C   ♦**  5.  RANDOM  OR  UNIFORM  LOCATIONS 

1212  CONTINUE 
R£AD{MI,6)IA,(Z( Ji ,J=i,5) 

C 

C   ***TEST  FOR  END  OF  OVERRIDE 
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c 

IF(IA.6Q.0)GOTO  1200 

00  1213  1=1.5 
1213  SIM(IA,i)=Z{I) 

GOTO  1212 
C 
C  ***^r^      PACKET  NUMBER   9 

1220  REA0(M1,7)I1«(Z( J) tJ=l»2) 
1F{U.EQ.O)GOTO  1200 
GaT0(1221»1222f 1223, 1224) r II 

1221  FUEL(1)=Z(1) 
FUEL(2)=Z(2) 
GOTO  1220 

1222  TIRES(1)=Z(1) 
TIRES12J=Z(2) 
GOTO  1220 

1223  0IL{1)=Z{1) 
0IL(2J=ZC2) 
GOTO  1220 

1224  SINDEX=Z<1) 
GOTO  1220 

C 

C   *****   PACKET  NUMBER  10 

1225  REA0(MI,3)IPR1NT,JPRINT 
GOTO    1200 

C 

C   *****   PACKET  NUMBER  11 

1226  REA0(MI,8)WIDTH 
GOTO  1200 

C 

C   *****   PACKET  NUMBER  12 

1227  REA0(MI,1)INC 
GOTO  1200 

C 

C       *****       PACKET    NUMBER    13 

1228  R£AO(MI,8)WALK,TCM0VE 
GOTO  1200 

C 

C   *****   PACKET  NUMBER  14 

1229  REA0(MI,8)PSIRS 
GOTO  1200 

C 

C   *****   PACKET  NUMBER  15 

1230  REA0(MI,8)(DET0UR(J),J=1,7) 
GOTO  1200 

C 

C       *****       PACKET    NUMBER    16 

1231  R£A0<MI,8)DLIFE,RLIFE 
GOTO    1200 

C 

C   *****   PACKET  NUMBER  17 

1232  KEA0(MI,3iIA,Il,(Z(J),J=l,3) 
IF(IA.EQ.O)GOTO  1200 

00  1233  J=l,3 
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PSUA,Ii,J)  =  Z(  JJ 
1233  CONTINUE 
GUTG  1232 
C 

(;   *****   PACKET  NUMBER  18 
12i4  REAL)(M£»8)  (CAP(J),  J=l,f>) 
GOTO  1200 
C 
C   *****   PACKET  NUMBER  19 

1235  R£AL)(MI,dJDSPEEJ 
GOTO    1200 

C 

C   *****   PACKET  NUMBER  20 

1236  KEA0(M1,5JAAC0ST 
GOTO  1200 

C 

C   *****   PACKET  NUMBER  21 

1237  READIMI,8)0CW0RK,0CSCHL 
GOTO  1200 

C 

C   *****   PACKET  NUMBER  12. 

1238  REAt)(MI,8JC0MV0T 
GOTO    1200 

C 

C   *****   PACKET  NUMBER  23 

1239  R£AD{MI,8)(SLIMIT( J) ,J=1,5) 
GOTO  1200 

1299  CONTINUE 
C 

c 
c 

C   ***ARRAYS  ARE  ESTABLISHED  FOR  FULL  DEPTH  AND  PARTIAL  DEPTH  PATCH  SIZES 

C   't'^+AND  RANDOM  LOCATIONS  ALONG  THE  ROADWAY 
C 

c 
c 
c 

C***   INITIALIZE  NY  AN  ODD  NUMBER  AND  N1,N2,N3,  COUNTERS  FOR  PATCH  ARRAYS 

NY=7 

N1=0 

N2=0 

N3=0 
C 
C***       DETERMINE    PFACT,    A    FACTOR    TO    CONVERT    F.D.    PATCH    LENGTHS    TO    AREA    IN    SQ.YOS. 

PFACT=WIDTH/9 
C 
C***       TEST    FOR    PAVEMENT    TYPE 

IFdTYPt.EU.DGOTO    106 
C 
C***       If    THE    PAVEMENT    IS    BITUMINOUS    THE    ARRAY    IS    FACTORED    BY    TEN    AND 

PFACT=PFACT*10 
106    CONTINUE 
C 
C***       TWO    RANDOM    NUMBERS    ARE    GENERATED    FOR    TESTING    AGAINST    DISTRIBUTION 
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00    llJ    11=1,10 

IF  (Ni.EQ.  1000.  AND.  N.i.EQ.  1000  )GOTO    111 

DO    lUl    1=1,1000 

DO    lot    J=l,2 

NY=NY*65539 

IF(NY)102,104,104 

102  NY=NY4-2l474b3647+l 

104    RANOOM(J)=NY*. 46566136-9 
C 

C***      THE    FIRST    RANDOM    NUMBER    IS    CONVERTED    TO    A    FULL    DEPTH    CONCRETE 
C***       PATCH    LENGTH    AND    TO    A    PARTIAL    DEPTH    PATCH    AREA 

XF=RAND0M<1)*50 

XP=KAisiDOM(  1J*40 
C 
C«**      ONCE    ANY    COUNTER    REACHES    1000    THE    ARRAY    HAS    BEEN    FILLED 

IF(N1.EQ.1000)GOTO    103 
C 

C***   THE  FULL  DEPTH  PATCH  LENGTH  IS  ASSIGNED  TO  THE  DENSITY  FUNCTION 
C«#*   FOR  FULL  DEPTH  PATCH  SIZES  AND  THE  RESULTING  NUMBER  IS  TESTED 
C«**   AGAINST  THE  SECOND  RANDOM  NUMBER 

YD=(.186E-3)*((.75*XF)**8)*(EXP(-.75*XF) ) 

IF(RAND0M(2).GT.YD}GUT0  103 
C 
C«**   THE  ACCEPTED  PATCH  IS  PLACED  IN  AN  ARRAY 

Nl  =  Nl-»-l 

PATCHF(N1*=XF*PFACT 
C 
C 
C***   ONCE  ANY  COUNTER  REACHES  1000  THE  ARRAY  HAS  BEEN  FILLED 

103  IF(N2.Ey.l000)G0T0  108 
C 

C»*«  THE  PARTIAL  DEPTH  PATCH  AREA  IS  ASSIGNED  TO  THE  DENSITY  FUNCTION 
C***  FUR  PARTIAL  DEPTH  PATCH  SIZES  AND  THE  RESULTING  NUMBER  IS  TESTED 
C*«*   AGAINST  THE  SECOND  RANDOM  NUMBER 

YD=1.47*XP*EXP{-.6*XP)-»-.  1 

IF(RAND0M(2) .GT.YD)GOTO  108 
C 
C***       PARTIAL  DEPTH  PATCH  CANNOT  BE  SMALLER  THAN  1/2  SQ.  FT. 

IF(XP.LT.0.5)GUT0  108 
C 
C***   THE  ACCEPTED  PATCH  IS  PLACED  IN  AN  ARRAY 

N2=N2-H 

PATCHP{N2J=XP 
C 
C***   ONCE  ANY  COUNTER  REACHES  1000  THE  ARRAY  HAS  BEEN  FILLED 

108  IF(N3.EQ.1000)GOTU  101 
C 
C***   THE  SECOND  RANDOM  NUMBER  IS  ASSIGNED  TO  A  RANDOM  NUMBER  ARRAY 

N3=N3+1 

RL0C(N3]=RAND0M(2J 
101  CONTINUE 

110  CONTINUE 

111  CONTINUE 
C 
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C***   THE  RANDOM  NUMBER  ARRAY  IS  SORTED  IN  ASCENDING  ORDER 

DO  105  1=1,999 

N=I  +  1 

DO  107  J=N,1000 

IFCRLOCi JI.GT.RLQC(I)JGOTO    107 

TEMP1=RL0C(I J 

RLOC(n  =  RLOC(J) 

RL0C(J)=TEMP1 
107  CONTINUE 
105  CONTINUE 
C 
C 
C   ***COMPUTE  THE  SIMULATION  WORKLOAD  TO  BE  ASSOCIATED  WITH  EACH  ACTIVITY 

00  120  IA=1,7 
C 
C   ***D£TERMIN£  THE  TYPE  OF  WORKS! TE , FULL  DEPTH,  PARTIAL  DEPTH,  LANE 

J=SIM(IA,1) 
C 
C   ***DETERMINE  THE  NUMBER  OF  ITERATIONS 

N=SIM(IA,4) 
C 
C   ***INITIALIZE  THE  HOLD  FOR  THE  SIMULATION  WORKLOAD 

SWORK(IA)=0 

DO  121  IW=1,N 

GOTO(130,131,132),J 

130  T£MP1=PATCHF(IW) 
GOTO  133 

131  TEMPl^PATCHPdW) 
GOTO  133 

132  SW0RKnAJ  =  (SIM(IA,2)+SIM(IA,3)J*N 
GOTO  120 

C 

C   ***ACCUMULATE  SIMULATION  WORKLOAD 

133  SWORKlIAi=SWORK(IA)+TEMPi*SIM( IA,2i^SIM( IA,3) 
121  CONTINUE 

120  CONTINUE 
C 
C 
C 

C      SUBROUTINE  SPEED 
C 
C 
C 

C   ♦♦♦DETERMINATION  OF  SPEED  MATRICS 
C 
C 
C   ♦♦♦DETERMINE  MAXIMUM  AVERAGE  OPERATING  SPEED  FOR  FREEWAY 

TEMP1=0.9^DSPEED 
C 
C   ♦♦♦ESTABLISH  THE  NUMBER  OF  SPEED  CATEGORIES 

N=LANES+1 
C 
C   ♦♦♦DETERMINE  SPEED  LIMIT  ON  DETOUR 

SLIMIT(LANES)=D£T0UR(3) 
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c 

C       ***D0    FOR    EACH    SPEED    CATEGORY 

DO    550    IC=l,N 
C 
C 
C       ***HOW    MANY    LANES    OPEN    TO    THE    MOTQREST 

M=LAN£S-IC 
C 
C       ***MINUS    IS    FREEWAY,    ZERO    IS    DETOUR 

IF(M)560, 561,562 
C 

C   ***LANe  CAPACITY  COMPUTATIONS 
C 

5o0  CPLANE=CAP(IC)/LANES 

GOTO  563 

561  CPLANE=D£TOUR(5)/DETOUR{7) 
GOTO  563 

562  CPLANE=CAP{ICJ/M 

563  CONTINUE 
C 

C      **«COMPUTE    SPEED    AT    CAPACITY 

TEMP2=12.0*CPLANE    +.5*CPLANE««4. ^6 
C 
C       ***OETERMINE    MAXIMUM    SPEED    LOSS 

TEMP3=TEMP1-TEMP2 
C 
C   **«D0  FOR  ELEVEN  INCREMENTS  OF  THE  VOLUME-CAPACITY  RATIO 

00  551  1=1,11 
C 
C   ♦♦♦DETERMINE  A  VOLUME 

FACT2={I-i)*CPLANE/10. . 

VC=FACT2/CPLANE 
C 
C      *«*ESTABLISH   CONSTANT    SPEED    LOSS 

TEMP4=(.4*FACT2-10J*VC 
C 
C       «*«OETERMIN£    TOTAL    AVAILABLE    SPEED    LOSS    TO    CAPACITY    SPEED 

T£MP5=TEMP3-TEMP4 

IF(TEMP5.LT.0)TEMP5=0 
C 
C   ***DETERMIiME  SPEED  LOSS  TO  CAPACITY  SPEED 

TEMP6=VC**25»TEMP5 
C 
C   ♦♦♦COMPUTE  AND  HOLD  SPEED 

SP(IC,n  =  TEMPl-T£MP4-TEMP6 
C 
C   ♦♦♦DETERMINE  SPEED  FOR  SPEED  LIMIT 

TEMP7=SLIMIT(IC)*.9-J.6^VC 
C 
C   ♦♦♦TEST  FOR  MINIMUM  SPEED  AND  HOLD  MIMIMUM 

IF(SP(  Id  ).GT.TEMP7)SP{  IC,  I  i=TEMP7 
551  CONTINUE 
550  CONTINUE 
C 
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c 

C      SUBROUTINE  INUCC 

C 

C 

C***   CREATION  OF  THE  IHOUR  ARRAY  FOR  OCCUPANCY  TIME 

C***       CREATE    A    OCCUPANCY    ARRAY    FOR    EACH    ACTIVITY 

DO  1342  IA=i,7 
C 
C***   ZERO  INDEX  SO  DEFAULT  OCCURS  IF  ACTIVITY  IS  NOT  IDENTIFIED 

INDEX^O 
C 

C   **«IF  THE  CREWHOUR  VARIABLE  •0VER(1,IA)»  IS  EQUAL  TO  24 
C   ***THEN  ASSIGN  l»S  TO  THE  IHOUR  ARRAY  FOR  ACTIVIY  lA 

IF ( OVER (  l,IA).Ey.24) INDEX=1 

DO    1341    IH=1,24 

IHOUR(IH,IA)=INDEX 
1341  CONTINUE 

IFdNDEX.EQ.DGOTO    1342 
C 
C**«       SEARCH    FOR    A    MATCH    TO    ACTIVITY    NUMBER 

DO    1343    1=1,10 

IFIINOCCd  ,1J.NE.IA)G0T0    1343 
C 
C*#*       ESTABLISH    A    "FROM",     "TO"    OCCUPANCY    RANGE 

IN1=IN0CC( I,2J 

IN2=IN0CC(I,3) 
C 
C***   THE  "FROM"  OCCUPANCY  HOUR  CANNOT  EXCEED  THE  "TO"  OCCUPANCY  HOUR 

iF(lNl.GT.IN2J IN2=lN2+24 
C 
C**<c       SET    INDEX    TO    EQUAL    1    SO    THE    DEFAULT    ROUTINE    IS    BYPASSED 

iND£X=l 
C 
C*»*       ASSIGN    1    TO    IHOUR    FOR    EACH    HOOR    WHEN. ROAD    CAN    BE    OCCUPIED 

DO    134i>    J=IN1,IN2 

J1=J 
C 
C**«   THE  IHOUR  ARRAY  CAN  NOT  EXCEED  24 

IF{JI.GT.24) Ji=Jl-24 
1345  IH00R{J1,IA)=1 

1343  CONTINUE 

1344  IFdNDEX.EQ.DGOTO  1349 
C 

C***   DEFAULT  OPTION  FOR  WHEN  NO  ACTIVITY  HAS  BEEN  IDENTIFIED 
C***   SEARCH  FOR  A  MATCH  TO  ACTIVITY  NUMBER  TEN 

DO  1346  1=1,10 

IFdNOCCd,lJ.N£.10JG0TO    1346 
C 
C***       ESTABLISH    A    "FROM",     "TO"    OCCUPANCY    RANGE 

INl=IN0CCd,2J 

IN2=IN0CC(I,3) 
C  ■  , 

C***       THE    "FROM"    OCCUPANCY    HOUR    CANNOT    EXCEED    THE    "TO"    OCCUPANCY    HOUR 

lFdNl.GT.IN2)IN2=IN2+24 
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DO  1347  J=IN1,IN2 
JI  =  J 
C 
C***   THE  IHOUR  ARRAY  CANNOT  EXCEED  24 

IF ( J1.GT.24J  Jl=Jl-24 
C 
C***   ASSIGN  i  TO  IHOUK  FOR  EACH  HOUR  WHEN  ROAD  CAN  SE  OCCUPIED 

1347  IH0UR(J1,IA)=I 

1346  CONTINUE 

1349  CONTINUE 

1342  CONTINUE 
C 
C 

C      SUBROUTINE  RECON 
C 
C 

1300  CONTINUE 
C 

C***   BALANCE  DISTRIBUTION  OF  TRIP  PURPOSES  TO  REFLECT  INPUT  «  COM.VEH. 

C 

C***   FOR  INITIAL  AND  FINAL  YEAR 

DO  1301  1=1,2 
C 
C***   FOR  AM  AND  PM  PEAK  DIRECTIONS 

DO  1302  iD=i,2 
C 
C***   INITIALIZE  VARIABLE  TO  HOLD  SUM  OF  PERCENTAGES 

TEMP  1=0 
C 
C***   SUM  PERCENTAGES  OF  PASSENGER  CAR  TRIP  PURPOSES 

DO  1303  IT=1,5 

TEMP1=TEMPI+PERCNT( IT, ID, I ) 

1303  CONTINUE 
C 

C#**   ESTABLISH  CORRECTION  FACTOR  FOR  PASSENGER  CAR  TRIP  PURPOSES 

FACT1=(1-.01*TRUCKS{ U)/TEMP1 
C 
C***      CORRECT    PASSENGER    CAR    TRIP    PURPOSE    PERCENTAGES 

DO    1304    IT=1,5 

PERCNT<IT,ID,I)=PERCNT(IT,ID,I)*FACT1 

1304  CONTINUE 
C 

C***   REPLACE  ASSUMED  PERCENTAGE  OF  COMMERCIAL  VEHICLES  WITH  INPUT  PERCENTAGE 
PERCNT(6,ID,I)=.01*TRUCKS(I) 
1302  CONTINUE 

1301  CONTINUE 
C 

C 

C**    RECONCILE  OVERRIDDEN  100*  DISTRIBUTIONS  FOR  EACH  TRIP  PURPOSE 

C 

DO  1305  1=1,2 

DO  1306  10=1,2 

DO  1307  IT=l,6 
C 
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C*«*   TtST  TU  SEE  IF  DISTRIBUTION  WAS  OVERRIUDEN 

IF!  iBALtlT,  ID,  I  J.EvJ.OJGOTU    1307 

TEMP1=0 
C 
C***   SUM  PcRCENTAGtS  OF  OVEKRIODfcN  DISTRIBUTION 

DO  1308  IH=1,24 

TEMPi=T£MPl  +  PCTAOT(IH,IT,ID,  I J 

1308  CONTINUE 
C 

C***       ROUND    SUM    OF    PERCENTAGES    TO    NEAREST    .l^g 

1T£ST=(TEMP1+.0U05)«1000 
C 
C***       IF    SUM    OF    PERCENTAGES    NOT    EUUAL    TO    iOO«    RECONCILE    EACH    PERCENTAGE 

IFilTEST.EQ.iOOOiGOTO    1307 

FACTi=l/TEMPl 

DO  1309  IH=1,24 

PCTADTi IH,IT,ID,I)=PCTADT(IH,IT,ID,I)*FACTl 

1309  CONTINUE 
1307  CONTINUE 

C 

C 

C**    TEST  FOR  BALANCE  OR  CREATE  DISTRIBUTION  OF  ALL  TRIPS 

C 

IF( IBAL(7, ID, I). EU.O)GOTO  1315 
C 
C 

C**    BALANCE  ALL  TRIPS  DISTRIBUTION 
C 

TEMPi=0 
C 
C***       SUM    PERCENTAGES 

DO    1310    IH=1,24 

TEMP1=TEMP1+PCTADTIIH,7,1D,I ) 

1310  CONTINUE 
C 

C***       ROUND    SUM    OF    PERCENTAGES    TO    NEAREST    .i« 

ITEST=(TEMP1+.0003)*1000 
C 
C***       IF    SUM    OF    PERCENTAGES    NOT    EQUAL    TO    100    RECONCILE    EACH    PERCENTAGE 

IF(ITtST.EQ,1000)G0T0    1311 

FACT1=1/TEMP1 

DO    1311    IH=1,24 

PCTADTI IH,7,ID,I )=PCTADT(IH, 7, ID, 1 )*FACT1 

1311  CONTINUE 

DO    1312    iH=l,24 

TEMP1=0 

DO    1313    IT=1,6 
C 
C***       ADJUST    lOOiS    DISTRIBUTIONS    BY    DISTRIBUTION    OF    TRIP    PURPOSES 

PCTAOT(IH,IT,ID,i)  =  PCTADT(  IH  ,1 T, ID , I J*PERCNT ( I T, ID , I ) 
C 
C***       SUM    PERCENTAGES    OF    INDIVIDUAL    TRIP    PURPOSES 

TEMP1=TEMP1+PCTADT{IH, IT, ID, I) 
1313    CONTINUE 
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FACT1=PCTADT(IH,7, 10,1) /TEMPI 
C 
C***   BALANCE  INDIVIDUAL  TRIP  PURPOSES  DISTRIBUTION  TO  DISTRIBUTION  OF  ALL  TRIPS 

DU  1314  1T=1,6 

PCTADT{lH,IT,IO,  D^PCTAOT  I  IH,  I  T,  ID,  n*FACTl 

1314  CONTINUE 
1312  CONTINUE 

GOTO  1306 
C 

c 

C**    CREATE  DISTRIBUTION  OF  ALL  TRIPS 
C 

1315  CONTINUE 

DO    1316    IH=1,24 

TEMP1=0 

DO    1317    IT=1,6 
C 
C***      ADJUST    lOOSKOISTRIBUTIONS    BY    DISTRIBUTION    OF    TRIP    PURPOSES 

PCTADT(IH,IT,IO,n=PCTADT(  IH  ,  I  T,  ID,  I  )*PERCNT  ( IT  ,  ID,  I  ) 
C 
C**»   SUM  PERCENTAGES  OF  INDIVIDUAL  TRIP  PURPOSES 

T£MPi=TEMPl+PCTADT(IH,IT,ID, I) 

1317  CONTINUE 
C 

C***   PERCENTAGE  OF  ALL  TRIPS  EQUALS  SUM  OF  INDIVIDUAL  TRIP  PUTPOSES 
PCTADTi IH,7, ID,I )=TEMPl 

1316  CONTINUE 
1306  CONTINUE 
1.305  CONTINUE 

C 

C 

C**    TEST  FOR  AVERAGE  MORNING  AND  EVENING  PEAKS 

C 

IF(IDIR.NE.3)G0T0  1331 

DO  131b  1=1,2 

DO  1319  IT=1,7 

DO  1320  IH=1,24 
C 
C***   AVERAGE  MORNING  AND  EVENING  PEAKS 

PC  TAUT  (  IH,IT,1,I)=(PCTA0T(  IH,1T,  1, 1  i-«-PCTADT{  IH,IT,2,n  J/2 

PCTAUT(IH,IT,2,I)=PCTADT(IH,IT,1,I) 
1320  CONTINUE 
1319  CONTINUE 

1318  CONTINUE 
1331  CONTINUE 

C 

c 

C**    CONVERT  DAILY  DISTRIBUTION  OF  TRIP  PURPOSES  TO  HOURLY  DISTRIBUTIONS 

C 

C 

C***   INITIAL  AND  FINAL  YEAR 

DO  1321  1=1,2 
C 
C***   A.M.  AND  P.M.  PEAK  DIRECTIONS 
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00  1322  10=1,2 
C 
C***   EACH  HOUR  OF  THE  DAY 

DO  1323  IH=1,24 
C 
C«**   ESTABLISH  DAILY  TO  HOURLY  CONVERSION  FACTOR 

FACTl=l/PCTADT(iH,7, 10,1) 
C 
C***   EACH  TRIP  PURPOSE 

DO  1324  IT=1,6 

PCTADT(IH,IT,1D, I)=PCTADT( IH, IT, 10,1 )*FACT1 
1324  CONTINUE 
1323  CONTINUE 
1322  CONTINUE 
1321  CONTINUE 
C 
C 

C**    CREATE  bASe  YEAR  AND  YEARLY  INCREMENT  ARRAYS 
C 

MYEARS=NY£ARS-1 

00  1328  10=1,2 

DO  1329  IT=1,7 

DO  1330  1H=1,24 
C 
C*#*   COMPUTE  YEARLY  INCREMENT 

PCTADTl IH,IT,ID,2)={PCTA0T( IH, I T, I D, 2 J-PCTA0T{ IH,IT, ID, 1 ) ) /MYE ARS 
C 
C***   COMPUTE  BASE  YEAR  DISTRIBUTIONS 

PCTA0T{IH,IT,I0, 1) =PCT AOT ( IH, IT, I D,l) -PCTADTl IH, IT, 10,2) 
1330  CONTINUE 
1329  CONTINUE 
1326  CONTINUE 
C 
C***   CONVERT  INITIAL  AND  FINAL  VOLUME  TO  BASE  YEAR  AND  YEARLY  INCREMENT 

V0LUME{2)  =  { VOLUMEC  2)-V0LUME{  1) )/MYEARS 

VOLUME (1)=VOLUME(1)-VOLUM£( 2) 
C 
C*««   CONVERT  INITIAL  AND  FINAL  ^    COMMERCIAL  TO  tiASE  YEAR  L    YEARLY  INCREMENT 

TRUCKS (2 )={TRUCKS(2)-TRUCKS( D) /MY EARS 

TRUCKS(l)=TRUCKS(l)-TRUCKS(2) 
C 
C***   CONVERT  INITIAL  AND  FINAL  AM.  PM.  SPLIT  TO  BASE  YEAR  L    YEARLY  INCREMENT 

SPLIT(2)=(SPLIT(2)-SPLIT(1))/MY£ARS 

SPLIT(l)=SPLIT(l)-SPLIT(2) 

RETURN 

END 
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c 
c 

C  «««««««**  ;Jt ;0e  *:(t  ********************************************  ********J«'**C 
(^**4:******«;Jc*!j:*****  SUBROUTINE  UPPARA  ♦:«c  **♦*♦;«£  *«♦*<(**(; 

Q******************  PROGRAM  'EARUMAR*  ♦»«**«*»♦♦«♦♦««(; 

(_^*  ««*<;**«***  «*X«**««  ****«***<£;>«#«**(; 

(;*#«#«««  «5^  *«*«****«♦******»**♦****♦»*♦***♦»**♦»»****♦*♦***»♦♦****♦  ***C 

C 

SUBROUTINE  UPPARA 

INTEUtR  C0STS(7,5,d,2) 

COMMON  ARHU,  CAP(5),  COSTS, 

1  CWT,  0V0L(24),  HV0L(24)f  ID, 

2  IH0UR(^4,7),     ITYPE,  lY,  KP, 

3  LANES,  MI,  MO,  NYEARS, 

4  0CUSTS{65,2J ,  PATCHF(  iOOOi,  PATCHP (  1000)  ,  PROJLN, 

i>    RLOCdOOO),  SIM(7,5),  SP(3,il),  SP£E0D(24), 

6  SPEEUN(24},  SPLIT(2J,  SWURKW),  TRUCKS(2), 

7  VULUME(2),  VTRAT£(5,40),  ZuNEL(7,4J 
COMMON/ASSUME/  ALIbN(3,6),  AACOST,  COMVOT, 

1  UET0UR(7i,  DLIht,  FU£L(2),  HRS(7,24,4), 

2  HWURK{7),  IDIR,  INC,  IPRINT, 

3  IWT,  JPRINT,  OCSCHL,  OCWORK, 

4  0IH2),  0VER{12,7),  PCT  ADT  (  24,  7  ,2  ,  2  )  ,  PS  (  7  ,3  ,3)  , 
3    PSIRS,  RATtI,  RLlf-E,  SINUEX, 

6  SLiMITCb),  TCMQVE,  TIKES(2),  TLtVEL(7), 

7  WALK,  k^IJTH,  WEIGHT{io,3) 
DIMENSION    0C0ST(b5,4,2) 

C 

C 

C      SUBROUTINE  VTIMt 

C 

C 

DIMENSION  AC(5)  ,80(5l,8T(5),BIT(f)) 
DIMENSION  ACP(3)  ,BTP(i>),BITP(5) 
C 

C   ***iNITiALIZE  SCALE  FACTORS , INTERCEPTS , AND  COEFFICIENTS  OF  BENEFITS  EQUATIONS 
DATA  AC/ 0.07 57, 0.0^94, 0.0627, 0.0231,. 0813/ 

ACP/0.0  33  7,0.02dl,0.0  36  0,0.016i>,O.Od86/ 

B0/-59.34,-il2.3,-i68.2,-il.SJl,-110.a/ 

BIT/1.0  30,2.4y7,3.4<J8,i.'»40,  1.7  7V/ 

bITP/0.862,i.o^8,4.  130, 1.440, 1.779/ 

BT/3. 829,4*0.0/ 

6TP/-0. 041, 4*0.0/ 

THE  MAXIMUM  ACCURATE  VALUE  OF  TIME  FOR  WORK  TRIPS 

VALUE  OF  TIME  PER  VEHICLE  CONVERSION  FACTOR  FOR  WORK  TRIPS  IS 
PASSENOtRS  PER  VEHICLE 


DATA 

DATA 

OATa 

DATA 

OATA 

DATA 

c 

c*** 

I  IS 

1  =  40 

c 

c*** 

THE 

c*** 

THE 
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FaCT1=0CW0KK 

c 
c 
c 

C*  uiJ    LOOP    FOR    tACH    PASSfcNGHR    CAR    TRiH    PURPUSt 

C 

OU    15iO    IT=i,i> 
C 
C 

C**    COMPUTb  HOURLY  VALUE  OF  TiMt  SAVINGS  bETWEEN  t>  ANU  14  MINUTES 
C 

DO  1520  J=i>,14 
C 
C*««   FACT2  IS  THE  VALUE  OF  THE  BENEFITS  FUNCTION  FOR  A  TIME  SAVINGS  J 

FACT2=bO( IT)+J«(bT(ITj+8IT(IT)*lNC) 
C 
C***   FACT3  IS  THE  PERCENTILE  OF  MOTORISTS  HAVING  ZERO  BENEFITS 

FACTJ=1.0/(1,Q+EXP(AC<ITJ*FACT2) ) 
C 
C*«*   FACTt  IS  THE  PERCENTILE  OF  MOTORISTS  HAVING  THE  AVERAGE  BENEFIT 

FACT4=(l.0+FACT3J/2 
C 
C*«*       FACT5    IS    THE    AVERAGE    BENEFIT    OF    ALL    MOTORISTS    HAVING    A    TIME    SAVIGS    J 

FACT5=li.a-FACTj>J=«'(FACT2+AL0G(FACT4/(  U0-FACT4)  ) /ACI  IT}) 
C 
C***   VTRATE  IS  THE  VALUE  OF  TIME  PER  VEHICLE  IN  DOLLARS  PER  HOUR 

VTRATt(  IT,J)^FACTi>/100/J*60*FACTi 
1520  CONTINUE  ' 
C 
C 

C**    COMPUTE  THE  HOURLY  VALUE  OF  TIME  SAVINGS  BETi^EEN  14  AND  1  MINUTES 
C 

C***  dOZ    IS  THE  INTERCEPT   OF  THE  BENEFITS  FUNCTION  FOR  A  TIME  SAVING  OF 
C*«*   GREATEk  THE  14  MINUTES 

aO2=B0{ITj+14.0*(bT( IT )-BTP( IT }+lBI T( IT J-BITP( IT ) J*I NO 
C 

C***   FACTo  IS  THt  VALUE  OF  THE  BcNEFITS  FUNCTION  FOR  A  TIME  SAVINGS 
C*««   BETwEtN  5  AND  14  MINUTES  AT  14.5  MINUTES 

FACT6=B0{ IT)+14.5*{BT(IT)+BIT(IT)*INC) 
C 

C***   FACT7  IS  THE  PERCENTILE  OF  MOTORISTS  HAVING  ZERO  BENEFITS  FOR  A  TIME 
C**«   SAVINGS  OF  14.5  MINUTES  USING  THE  BENEFITS  FUNCTION  FOR  A  TIME 
C«**   SAVINGS  BETWEEN  5  AND  14  MINUTES 

FACT7=1.G/(1.0+EXP(AC( IT)*FACT6) ) 
C 

C***   TEMPI  IS  THE  AVERAGE  BENEFIT  OF  ALL  MOTORISTS  HAVING  A  TIME  SAVINGS 
C***   OF  14.5  MINUTtS  USING  THE  BENEFITS  FUNCTION  FOR  A  TIME  SAVINGS  BETWEEN 
C***   5  AND  14  MINOTES 

TEMP1=( 1.0-FACT7)*(FACTo  +  AL0G( (  H-FACT7) / { 1-F ACT7 ) J /AC( IT) ) 
C 

C*«*   FACTa  IS  THE  VALUE  OF  THE  BENEFITS  FUNCTION  FOR  A  TIME  SAVINGS  OF 
C***   GREATER  THEN  14  MINUTES  AT  14. p  MINUTES 

FACT8=B02+14.5*(BTP(IT)+BITP(IT)*INC) 
C 
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C***      FACT9    IS    THE    PERCENTILE    OF    MOTQ|<ISTS    HAVING   ZERO    BENEFITS    FOR    A    TIME 
C***       SAVINGS    OF    14.5    MINUTES    USING    THE    BENEFITS    FUNCTION    FUR    A    TIME    SAVINGS 
C«**      OF    GREATER    THAN    14   MINUTES 

FACT9=1.0/(i.0+EXP(ACP(IT)*FACT8)) 
C 

C***   TEMP2  IS  THE  AVERAGE  BENEFIT  OF  ALL  MOTORISTS  HAVING  A  TIME  SAVINGS  OF 
C***   ^4.5  MINUTES  USING  THE-  BENEFITS  FUNCTION  FOR  TIME  SAVINGS  GREATER  THAN  14 
C***   MINUTES 

TEMP2=(1.0-FACT9J*(FACT8+AL0G( ( 1+FACT9)/ ( 1-FACTy ) )/ACP{ ITJi 
C 

C***   COMPUTE  THE  ADJUSTMENT  TO  BE  ADDED  TO  THE  BENEFITS  FUNCTION  FOR 
C***   TIME  SAVINGS  OF  GREATER  THAN  14  MINUTES 

C***   TEMP3  IS  THE  ADJUSTMENT  NECESSARY  TO  THE  VALUES  OF  TIME  SAVINGS 
C*#*   OF  GREATER  THAN  14  MINUTES  TO  MAKE  THE  VALUE  OF  TIME  A  CONTINUOUS  FUNCTION 

TEMP3=TEMPl-TEMP2 
C 
C 

C**    COMPUTE  THE  HOURLY  VALUE  OF  TIME   FOR  TIME  SAVINGS  BETWEEN  15  AND 
C**    I  MINUTES 
C 

DO  1530  J=15,I  • 

C 
C***   FACT2  IS  THE  VALUE  OF  THE  BENEFITS  FUNCTION  FOR  A  TIME  SAVINGS  J 

FACT2=B02+J*{BTPIITJ+B1TP{ IT  J* INC) 
C 
C***   FACT3  IS  THE  PERCENTILE  OF  MOTORISTS  HAVING  ZERO  BENEFITS 

FACT3=1.0/(1.0+EXPlACP(IT)*FACT2Ji 
C 
C***   FACT4  IS  THE  PERCENTILE  OF  MOTORISTS  HAVING  THE  AVERAGE  BENEFIT 

FACT4=(1.0+FACT3)/2 
C 
C***   FACT5  IS  THE  AVERAGE  BENEFIT  OF  ALL  MOTORISTS  HAVING  A  TIME  SAVINGS  J 

FACT5=(l.J-FACT3)*(FACT2+AL0G(FACT4/( 1.D-FACT4) )/ACP(IT) J+TEMP3 
C 
C***   VTRATE  IS  THE  VALUE  OF  TIME  PER  VEHICLE  IN  DOLLARS  PER  HOUR 

VTRATt(IT,J)=FACT5/100/J*60*FACTl 
1530  CONTINUE 
C 

C***   THE  VALUE  OF  TIME  PER  VEHICLE  CONVERSION  FACTOR  FOR  SOCIAL-RECREATIONAL, 
C***   PERSONAL  BUSSINESS,  AND  VACATION  TRIPS  IS  1 

FACT1=1 
C 

C***   THE  VALUE  OF  TIME  PER  VEHICLE  CONVERSION  FACTOR  FOR  SCHOOL  TRIPS  IS 
C***   THE  PASSENGERS  PER  VEHICLE 

IF{IT.EQ-4JFACT1=UCSCHL 
C 
C 

C**    THE  HOURLY  KATE  FUR  ALL  TIME  SAVINGS  GREATER  THAN  1  IS  THE  SAME  AS 
C**    THE  RATE  FOR  A  TIME  SAVINGS  OF  I  MINUTES 
C 

DO  1540  J=It40 

VTRATEI IT,J)=VTRATE(  IT,II 
1540    CONTINUE 
C 
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c 

C*«    THE  HOURLY  RATE  FOR  A  TIME  SAVINGS  OF  LESS  THAN  i>  MINUTES  IS  THE  KATE 

C**    OF  TIME  SAVINGS  FOR  A  5  MINUTE  TIME  SAVINGS 

C 

DO  1550  J=l,5 
VTRATE(IT,J)=VTRATE( IT, 5) 

1550  CONTINUE 

G0T0U560,15  70,  1570,  1560, 1510)  ,IT 
C 

C**«       INITIALIZE    SUBSCRIPT    FOR    MAXIMUM    ACCURATE    VALUE    OF    TIME    RATE    FOR 
C***      SOCIAL-RECREATIONAL    AND    SCHOOL    TRIPS 

1560  1=20 

GOTO  1510 
C 

C***   INITIALIZE  SUBSCRIPT  FOR  MAXIMUM  ACCURATE  VALUE  OF  TIME  RATE  FOR 
C***   PERSONEL  QUSSINESS  AND  VACATION  TRIPS 

1570  1=30 

1510  CONTINOE 
C 
C 

C      SOdROUTINE  UPCOST 
C 

c 

DO  1981  1=1,65 

OCaSTSU,l)  =  0 

OCOSTSd  ,2)  =  0 
1981  CONTINUE 
C 
C   ***OET£RMIN£  OPERATION  PARAMETER  FOR  65  SPEEDS 

DO  1400  IS=i,65 

SS=IS 

c 

C      ***FUEL    CONSUMPTION    IN    GALLONS    PER    PASSENGER    CAR    VEHICLE    PER   HOUR 

C 

C   ***INIT1ALIZ£  TEMPORARY  VARIABLES 

TEMP  1=0 

TEMP2=0 
C 
C   ***FUEL  CONSUMPTION  MODEL  FOR  LEVEL  TANGENT  SECTIONS 

TEMP  3=EXP( -. 4844+. 0285*1 SJ 
C 
C      ***FUEL    CONSUMPTION    MODELS    FOR    POSITIVE    GRADES 

00    140:»    1  =  1,6 

IFlALIGNd,  D.EQ.OiGOTO    1405 

A=-.45+-0278*IS 

B=.0348+.0214*AL0G(SS) 
C 
C      ***ACCUMULATE    PRORATED    FOEL    CONSUMPTION    FOR    POSITIVE    GRADES 

T£MPl=TEMPl  +  £XP(A+B*i)*ALIGN(l,n/PROJLN 
C 
C      ***ACCOMOLATE    MILEAGE    ASSOCIATED    WITH    POSITIVE    GRADES 

TEMP2=TEMP2+ALIGN( 1, I) 
1405    CONTINUE 
C 


197 


Q      ***PUEL  CONSUMPTION  MODELS  FOR  NtGATI VE  GRADES 

DO  1406  1=1,6 

IF{ALIGN(2,n-£Q.0)GOTa  1406 
C 
C   «**COMPUTE  FLOAT  SPEED 

TEMP3=3+7*I 
C 
C       ***lNITiALIZ£    TEMP4,TH£    INCREMENT    OF    FUEL    CONSUMPTION    ABOVE    FLOAT    SPEED 

TEMP4=0 
C 
C      ***TEST    TO    DETERMINE    IF    THE    FLOAT    SPEED    IS    EXCEEDED 

IFt  IS.LT.T£MPi>iGOTO    1416 
C 
C       ***CUMPUTt    THE    INCREMENT    OF    FUEL    CONSUMPTION    ABOVE    FLOAT    SPEED 

TEMP4=T EMP3- EXP (-•4844+. 0285*TEMP5) 
C 
C      ***COMPUTE    THE    FUEL    CONSUMPTION    ASSOCIATED    WITH    SPEEDS    BELOW    FLOAT    SPEED 

1416    TEMP6=l/tl.61+-l*ISJ 
C 
C      ***ACCUMULATE    PRORATED    FUEL    CONSUMPTION    FOR    POSITIVE    AND    NEGATIVE    GRADES 

TcMPl=TEMPl+(TEMP6+T£MP4J«ALIGN(2, I)/PROJLN 
C 
C       ***ACCUMULATE    MILEAGE    ASSOCIATED    WITH    POSITIVE    AND    NEGATIVE    GRADES 

TEMP2=T£MP2+ALIGN(2, I) 

1406  CONTINUE 
C 

C   ***FUEL  CONSUMPTION  MODELS  FOR  HORIZONTAL  ALIGNMENT 

DO  1407  1=1,6 

IF(ALIGN(3, I J.EQ.OIGOTO  1407 

C=I 

A=-.483-.087*AL0G(C) 

B= EXP (-3. 562  +  . 044* I) 
C 
C   ***COMPUTE  EXCESS  FUEL  CONSUMPTION  ASSOCIATED  WITH  HORIZONTAL  ALIGNMENT 

TEMP4=EXP(A+8*IS)-TEMP3 
C 
C   **#TEST  TO  6E    SURE  ANY  EXCESS  IS  POSITIVE 

IF(TEMP4.LT.0)G0T0  1407 
C 
C   ***ADD  EXCESS  FUEL  CONSUMPTION  ASSOCIATED  WITH  HORIZONTAL  ALIGNMENT 

TEMPl=TEMPl+TEMP4*IALIGNt3,I )/PROJLNJ 

1407  CONTINUE 
C 

C   ***HOLD  FUEL  CONSUMPTION  FOR  4000  LB.  PASSENGER  VEHICLE  PER  HOUR  BY  SPEED 

1408  uC0ST(IS,l,i)=TEMPl+TEMP3*(PR0JLN-TEMP2)/PR0JLN 
C 

C   ***TIR£  WEAR  IN  .001  INCHES  OF  WEAR  PER  VEHICLE  PER  HOUR 
C   ***INITIAL  TEMPORARY  VARIABLES 

TEMP1=0 

T£MP2=0 
C 
C   ***T1RE  WEAR  MODEL  FOR  LEVEL  TANGENT  SECTIONS 

TEMP3=EXP{-8.26i>+2.226*AL0G(  SSJ) 
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C   ***TlRe  WEAR  MODELS  FOR  POSITIVE  GRADES 

DO  1410  I=l»6 

1F(ALIGN( 1,1 ).Eg.O)GOTO  1410 

A=-8.26+.09i>*I 

tJ=2. 23-. 015*1 
C 
C      *«*ACCUMUC-AT£    PRORATED    TIRE    WEAR    FOR    POSITIVE    GRADES 

T£MPl=TEMPl+(EXP(A+Q*ALOG(SS)J*ALIGN(l,i)/PROJLM) 
C 
C   ***ACCUMOLAT£  MILEAGE  ASSOCIATED  WITH  POSITIVE  GRADES 

TtMP2  =  TEMP2+ALiGN{l,  I) 

1410  CONTINUE 
C 

C   ***TIRE  WEAR  MODELS  FOR  NEGATIVE  GRADES 

00  1411  1=1,6 

IF(ALIGN(2,I).£Q.0)GaT0  1411 

A=-8.26+.2*I 

B=2.23-.07*I 
C 
C       ***ACCUMULATE    PRORATED    TIRE    WEAR    FUR    POSITIVE    AND    NEGATIVE    GRADES 

TEMPl  =  TEMPl-»-{EXP(A  +  £i*AL0G{SSJi*ALIGi\l(2,I  )/PROJLN) 
C 
C      ***ACCOMULAT£    MILEAGE    ASSOCIATED    WITH    POSITIVE    AND    NEGATIVE    GRADES 

T£MP2=TEMP2+ALiGN(2, U 

1411  CONTINUE 
C 

C   ***TIR£  WEAR  MODELS  FOR  HORIZONTAL  ALIGNMENT 

DO    1412    1=1,6 

C=I 

IFULIGN(3,1}.£Q.O)GOTO    1412 

A=-3.i+. 59*AL0G(CJ 

B=.077+.002J*I 
C 
C       «**ADO    EXCESS    TIRE    WEAR    ASSOCIATED    WITH    HORIZONTAL    ALIGNMENT 

TEMPl=TEMPi+itXP(A+6*IS)-TEMP3)*(ALIGN(3,I)/PR0JLNi 
1^12    CONTINUE 
C 
C       ***H0LD    TIRE    WEAR    FOR    4000    LB.    PASSENGER    VEHICLE    PER    HOUR    BY    SPEED 

1413    0C0ST(IS,2,l)  =  TEMPl+TEMP3*iPR0JLlM-TEMP2)/PR0JLN 
C 

C   ♦♦♦OIL  CONSUMPTION  IN  QUARTS  PER  PASSENGER  CAR  VEHICLE  PER  HOUR 
C 

C   ***UIL  CONSUMPTION  MODELS  FOR  VERTICAL  ALIGNMENT 
C   ***1NITIAL  TEMPORARY  VARIABLES 

TEMP1=0 

T£MP2=0 
C 
C      ♦*«OIL    CONSUMPTION    FOR    LEVEL    TANGENT    SECTIONS 

TEMP 3=EXP(-3.414+. 0242*1 S J 

DO    1420    1=1,6 

TEMP4=ALIGN(l,n+ALIGN(2,IJ 

IF(TEMP4.EQ.0JGUT0    1420 

A=-3.414-. 0184*1 

B=.0242+. 00142*1 
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c 

C   *«*ACCUMULATe  PRUKATeo  OIL  CONSUMPTION  FOR  VERTICAL  ALIGNMENT 

TtMPi=TtMPi+(£XP(A  +  t>*IS)  )  *  ThMP4/PRuJLN 
C 
C   *«*ACCUMULATE  MILEAGE  ASSOCIATED  WITH  VERTICAL  ALIGNMENT 

TcMP2=TEMP2+TEHP4 

1420  CONTINUE 
C 

C   ***HOLL)  OIL  CONSUMPTION  FOR  4000  LB.  PASSENGER  VEHICLE  PER  HOUR  BY  SPEfcO 

1421  0C0ST( IS,i,l)=TEMPi+T£MPi*{PR0JLN-TtMP2) /PROJLN 
C 

C   ***PASSENGER  VEHICLE  MAlNThNANCE  COST  IN  DOLLARS  PER  HOUR  FOR  SPEED  IS 

C 

C   ♦♦'^MAINTENANCE  COST  MODEL  FuR  LEVEL  TANGENT  SECTIONS 

TEMPi=EXP(-3.828<-1.2  V8*AL0G(  SSJ  ) 
C 
C   «**liMlTIAL  TEMPORARY  VARIABLES 

TEMPi=0 

T£MP2=0 
C 
C      ***MAINTtNANCE    COSTS    MODELS    FOR    POSITIVE    GRADES 

DO    1430    1=1,6 

IFCALIGNd,  I  ).EQ.0)G0T0  1430 

A=3.828-.0l4*I 

ti=1.27d+. 001*1 
C 
C   ***ACCUMULATE  PRORATED  MAINTENANCE  COSTS  FOR  POSITIVE  GRADES 

T£MPi=TEMPl+£XPi-A-n3*AL0G( SS ) ) *AL IGN ( 1 , I )/ PROJLN 
C 
C       **«ACCUMULATE    MILEAGE    ASSOCIATED    rtlTH    POSITIVE    GRADES 

TtMP2=TEMP2  +  ALlGN( 1,  I) 

1430  CONTINUE 
C 

C   ***MAINT£NANC£  COSTS  MODELS  FOR  NEGATIVE  GRADES 

DO  lt31  1=1,6 

IF(ALIGN(2, I).EQ.0)GOT0  1431 

A=3. 828-. 0285*1 

8=1.2  7d-.011*I 
C 
C   «**ACCUMULATE  PRORATED  MAINTENANCE  COSTS  FOR  POSITIVE  AND  NEGATIVE  GRADES 

TEMP1=TEMP1+EXP {-A+8*AL0G( SS ) ) *AL IGN ( 2 , I ) /PROJLN 
C 
C      ***ACCUMULATE    MILEAGE    ASSOCIATED    WITH    POSITIVE    AND    NEGATIVE    GRADES 

TtMP2=TEMP^+ALIGN(2,  li 

1431  CONTINUE 
C 

C   ***HULD  MAINTENANCE  COST  FOR  4000  LB.  PASSENGER  VEHICLE  PER  HOUR  BY  SPEED 

1432  0C0ST(IS,4,l)=TEMPl+TEMP3*(PR0JLN-TEMP2)/PR0JLN 
C 

C   ***DEPR£CIATION  RATE  FOR  PASSENGER  CARS  PER  HOUR  AT  SPEED  IS 

C 

C       **«ANNUAL    PASSENGER    MILEAGE    ISA    FUNCTION    OF    SPEED    IS 

TEMP1=1974*IS**.489 
C 
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C      ♦**YtARS    TO    SCRAP    IS    A    FUNCFION    OF    AiMNUAL    MILEAGE 

TE MP2=^7. 5-3. 88* ALUG( TEMPI) 
C 
C   ***THt  HOURLY  UEPRECIATIUN  RATE  OF  PASSENGER  CARS  IS  ( 1 /L IFEMI LEAGE/SPEED  IS) 

0CUST{IS,4,2)=i/{lTtMPI*TEMP2)/IS) 
1400  CONTINUE 
C 
C 
C 

C   ***C0NVERSION  OF  PASSENGER  CAR  OPERATION  PARAMETERS  TO  COMPOSITE  COMMERCIAL 
C 
C 

C   ***CJNV£Rr  FOR  65  SPEEDS 
C 

L»0  1450  IS=i,6:> 
C 

C      **#AlJDRESS    THE    PARAMETERS    FUEL  t  TI  RfcStUI  L    ANO    MAINTENANCE 
C 

UO    1451     Il=lt4 
C 
C       ***INITIATE    THE    VEHICLE    WEIGHT    COUNTER 

1  =  1 
C 
C      ***bRANCH    TO    APPROPRIATE    OPERATION    PARAMETER 

GUTOC 1453, 1454,145  5, 1456), II 
C 
C       «**FUEL    CONSUMPTION    WEIGHT    RATIO    FACTOR    COMPUTATION 

1453  A^l/(  .46-i-.0344*iS-.00031*IS**2) 
b=l/( .78+.04  37«iS-.00047*IS**2) 
R  W=EXP  I- A4-B*(ALuo(  WEIGHT  (1,1)))  ) 
GUT0(1457) ,1 

GOTO    1459 
C 
C       ***TIRE    WEAR    WEIGHT    RATIO    FACTOR    COMPUTATION 

1454  RW=.7o*.06l*WEIGHT(I, 1) 
GUT0( 1457) ,1 

GOTO    1459 
C 

C   *«*01L  CONSUMPTION  WEIGHT  RATIO  FACTOR  COMPUTATION 
1^*55  A  =  .93Q  +  .003«IS 

b=-.0l49+,000U4*IS 

RW=1/U  +  B*WEIGHT(I  ,1)) 

IF(WEIGHT( I, 1).LE.50)G0T0    1452 

RW=3*wEIGHTt I,l)/( 30+1 S) 
1452  CONTINUE 

G0T0(1457) ,1 

GOTO  1459 
C 

C   ««*MAINTENANCt  COSTS  WEIGHT  RATIO  FACTOR  COMPUTATION 
1456  FACT1=IA6S( IS-^0) 

A=<.12+-0084*FACTi 

b=.315+.0021*FACTl 

C=.U0438+.000023«FACT1 

RW=-A  +  B*WEIGHT(  1 , 1 )-C*W£ IGHT { 1 ,  1)«*2 
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IFCWEIGHTI  I,  D.LE.tiO.OiGOTO  1466 

R«=4.68+.039*FACTl  +  .07  72*{WEiGHT(I  ,U-50) 
1466  CONTINUE 
C 
C   ***UEPRECIATION  WEIGHT  RATIO  FACTOR  COMPUTATION 

TEMP J=EXP (.163-. 031* WEIGHT! I, Ui 

GOTO (145 7), I 

GOTO  1461 
C 

C   ***HOLO  PASSENGER  CAR  WEIGHT  RATIO  IN  FACT2 
1457  FACT2=RW 

IF(Ii.NE.4)G0Ta  1458 
C 
C   ***MAINTENANC£  COSTS  FOR  PASSENGER  CAR  FACTORED  BY  SERVICES  INDEX 

OC0ST(IS,Il,l)=OCO5T(lS.Il,i)*SINafcX 
C 
C   ***DEPRECIATION  RATE  FOR  PASSENGER  CAR  CONVERTED  TO  DOLLARS 

0C0ST(IS,I1,2)=0C0ST(IS,I1.2)*WEIGHT(1,3) 
C 

C   ***INITALIZ£  TEMPORARY  VARIABLES  FOR  THE  DEVELOPMENT  OF  COMPOSITE 
C   ***CQMMERC1AL  VEHICLE  OPERATION  PARAMETER  ARRAY 
145b  TEMP1=0 

TEMP 2=0 

TEMP4=0 
C 
C   ***INCREMENT  THE  COMMERCIAL  VEHICLE  WEIGHT  CLASS 

1480  I=H-1 
C 
C   ***T£ST  FOR  LAST  VEHICLE  CLASS 

IFd.GT.IWTJGOTO  1470 
C 
C   **«ACCUMULATE  THE  PERCENTAGE  OF  COMMERCIAL  VEHICLES 

TEMP2=T£MP2+*il£IGHT(  I  ,2) 
C 
C   ***BRANCH  TO  THE  APPROPRIATE  OPERATION  PARAMETER 

GOTO (1453f 1454,1455, 1456), II 
C 
C   ***ACCUMULATE  A  COMPOSITE  WEIGHT  RATIO  FACTOR  FOR  DEPRECIATION 

14ol  TEMP4=TEMP4*TEMP3«WEIGHT(I,2J*WEIGHT(I,3)/WEIGHT(1,3J 
C 

C   **«ACCUMULAT£  THE  APPROPRIATE  OPERATION  PARAMETER  WEIGHT  RATIO  FACTOR 
1459  T£MP1=TEMP1+RW*WEIGHT(I,2) 

GOTO  1480 
1470  IF(I1.NE.4}G0T0  1460 
C 

C   ***CONVERT  THE  MAINTENANCE  COSTS  FOR  A  PASSENGER  CAR  TO  A  COMPARABLE 
C   *»*COSTS  FOR  A  COMPOSITE  COMMERCIAL  VEHICLE  AND  HOLD  IN  TEMPI 

TEMP1=0C0ST( IS, U, 1 J *TEMP1/TEMP2 
C 

C      ***CONVERT    THE    DEPRECIATION    COSTS    FOR    A    PASSENGER    CAR    TO    A    COMPARABLE 
C       »**COSTS    FOR    A    COMPOSITE    COMMERCIAL    VEHICLE    AND    HOLD    IN    TEMP2 

TEMP2=0C0ST(IS,I1,2)*TEMP4/T£MP2 
C 
C      ***ADO    THE    DEPRECIATION    COSTS    TO    MAINTENANCE    COSTS    ARRAY    FUR    PASSENGER    CARS 
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C   ***ANO  ADJUST  FOR  ACTUAL  PASSENGEt^  CAK  WEIGHT 

UC0ST(1S,I1, 1)=UCUST(1S, II, 1 )*FACT2+UCdST ( IS, II, 2) 
C 

C   «*'«=ESTABLISH  THE  COMPOSITE  CGMMEkCIAL  VEHICLE  MAINTENANCE  AND  DEPRECIATION 
C   **«CuSTS  ARRAY 

UCOST{ IS,Il,2)=TEMPl+T£MP2 

GOTO  1451 
C 

C       ***CaNV£RT    THE    OPERATIONAL    PARAMETER    FUR    A    PASSENGER    CAR    TO    A    C0MPARA6LE 
C       ***OPERATIONAL     PARAMETER    FOR    A    COMPUSIFE    COMMtRCIAL    VEHICLE 

1460    OCOST( IS, ll,2)=GC0ST(IS,Il, l)*TEMPi/TEMP2 
C 
C       ***FUUR    KIP    PASSENGER    CAR    ADJUSTED    FOR    ACTUAL    PASSENGER    CAR    WEIGHT 

UCOST(IS,ll,  1)=0CUSTUS,  Il,i)*FACT2 
1451  CONTINUE 
14^0  CONTINUE 
C 

C       ♦**CUNVERT    THE    OPERATIONAL    PARAMETERS    FROM    UNITS    PER    VEHICLE    PER    HOUR    TO 
C       ***COSTS    PER    1000    VEHICLES    PER    HOUR    FOR    ALL    OPERATIONAL    PARAMETERS 

DO    1490    IS=lt65 

UCOSTSllS,li=OCOSTS( IS , 1 )+OC0ST ( I S, 1 , 1 ) *FUEL ( 1)*10  00 

OCOSTSdS,  1)=0C0STS(  IS,  l)  +  aCOST{  IS,2,1)*TIRES(1)*1000 

0C0STS(IS,1)=0C0STS( IS,i)+OCOST( IS,3,li»0IL( 1  J* 1000 

OCOSTSdS,  1)=0C0STS(  I  S  ,  1  )+0C0ST  (  I  S  ,4,  1)*  1000 

0C0STS(1S,2)=0C0STS( IS ,2 )+OCOST ( i S , 1 , 2 i *FUEL ( 2 ) * lUOO 

0C0STS(IS,2)=0C0STS( IS,2)+0C0ST( IS , 2, 2 i* TIRE S( 2) »1000 

0CuSTS(IS,2i=0C0STS( IS,2)+0C0ST( I S, 3, 2 ) *OIL( 2) *1000 

OCOSTSdS,  2  )=UCUSTS(  IS  ,  2  )  +  OCUST  (I  S  ,4,2  J  *1000 
1490    CONTINUE 

TEMP1=0 

TEMP2=0 

DO    1495    I=2,IriT 

TEMP1=TEMP1+W£IGHT( I,l)*W£IGHTd ,2) 

TtMP2=rEMP2  +  WEIGHT( I  ,2) 
1495    CONTINUE 

CrtT=TEMPi/TEMP2 

RETURN 

END 
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c 
c 

(;  <t  ;(c ;{( « :<c  4c «  «  «  « ;^  4c  ijc  «:  :ic  )(c  :«c  :«( :Cc  ;jc  ;(c  ;«c «  4c  <c  « « j|)c  ;tc  ;4c «  « «  ;gc « :(c «  « ;«:  4c  ;«c «  « :»:  3(c  >(c «  ^ 

Q4t4c4c«4c**««««4c*4<**4c« 

***4c***4t*******C 

Q«4c4c4c«4c4c4c4c4c«4c4c4c4c4c4c4c                                   SUBROUTINE 

RPRINT 

***4c4c**********C 

C«4c«4c«:4c4c4c4c4e«4t*4c*4c«4c 

***********4E***Q 

(;***4e#*««4c4c«4c4c*«*«4c                          PROGRAM    'EAROMAR' 

********  4c***  ***C 

(^ 4c  * 4c  4c*  *♦  4c*  *  4c  4t  *  4c 4c 4c 4c  4c 

********4c******C 

(;4c  *******************;#:  «**4c  ********************  ***********************C 

(;;*4(4c*******>tc4c*********************************«***«****«****«********C 

Q^«c4c  **********************************************************  *******C 
r 

SUBROUTINE    RPRiNT 

INTEGER    C0STS(7,5,8,2J 

COMMON                               ARHO, 

CAP(5), 

COSTS, 

1    CWT,                                  DVUL{24)t 

HV0Li24), 

10, 

2    lH0UR(24t7J ,             ITYPE, 

lY, 

KP, 

3    LANES,                             MI, 

MO, 

NYEARS, 

4    UC0STS(65,2),          PATCHF(iOOO), 

PATCHPI 1000) 

,             PROJLN, 

5    RLOCi 1000),               SIM(7,5), 

SP(5,11), 

SP££DD(24), 

6    SPfcfcUN(24),                SPLIT(2), 

SW0RK(7) , 

TRUCKS(2), 

7    V0LUM£(2),                 VTRATE(5,40J, 

Z0NEL(7,4J 

COMMON/ASSUME/          ALlGN<3,to), 

AACOST, 

COMVOT, 

I    L)£T0UK(7J,                  JLIFE, 

FUEL(2) , 

HRS{7,24,4), 

2    HwORK(7),                     lOIR, 

INC, 

IPRINT, 

3    IWT,                                  JPRINT, 

OCSCHL, 

OCWORK, 

4    0IL{2),                          QV£K(12,n, 

PCTADT{24,7, 

2,2>,PS(7,3,3), 

5    PSIRS,                            RATEI, 

RLIFE, 

SINDEX, 

6    SLIMIT(5),                 TCM0V6, 

TIR£S{2), 

TLEVEL(7), 

7    WALK,                                WIDTH, 

WEIGHT(i0,3) 

OIMENSIUN    PAVE{3,3) 

DIMENSION    ROAD (2, 3) 

DATA    PAVE/«             •,»        BI»,»          C«,' 

CONC  'TUMI', 

•OMPO', 'RETE', 

X«NuUS',«SITE«/ 

DATA    ROAD/'       4     S'LANfcS'       6     S' 

LANE','       8    •, 

•LANE'/ 

10    FORMATdHI,' TRAFFIC    WARRANTS    FOR 

PREMIUM    PAVEMENTS    •, 

X«R£yulRING    REDUCED    MAINTENANCE') 

11    FGRMATCIHO, 'ASSUMED    VALUtS    OF    ANALYSIS    VARIABLES') 

12    FORMATdHO, 'DESIGN:' ) 

13    FORMATCIH    .'EXPRESSWAY    TYPE..*.. 

•....*, 2A4) 

.A>   t^           I       \J  1^1     1   r^    1       %     A  1    V            y              m-m  w\  I       i  ^   ^  >J  -J   VI   r^    I               V       a     '        i^   V     V    V     W   9 

14    F0RMAT(1H    , 'PAVEMENT    TYPE. 

. ', 3A4) 

13    FORMATCIH    .'ANALYSIS    SECTION    LEN 

GTH..... ...•• 

...  .  » ,F3.0,  '    MILES' ) 

it)    F0RMAT(1H    »'LANE    WIDTH.......... 

.... ' ,F4. 1, •    FT. • ) 

17    FORMATUH,  'ANALYSIS    PERIOD 

....•,12,'    YEARS') 

18    F0RMAT(1H    , 'DESIGN    LIFE......... 

. . . .' ,F4. 1, '    YEARS* ) 

19    FORMATdH    .'RESURFACED    DESIGN    LIPF 

......F3.0.'    YEARS') 

20    F0RMAT(1H     .'TERMINAL    PSI     VALUE-- 

..........* ,F3. I) 

^V/        1     U<^llr%l     1J.I1         y           li— OllXlir^W        •     J*           m  r\\^\J\m^  m   m 

21    FORMATdHO, 'TRAFFIC:') 

•    V  V  w  vvvwvw         yv     t^  w    Mf  w 

22    FORMATdH    ,'  INITIAL    VOLUME...... 

..  •  ,16, «    AADT' J 

23    FURMATIIH    #•  INITIAL    COMMERCIAL.. 

.•,F4.1,*    PERCENT') 

24    FORMATIIH    .'INITIAL    AM    PEAK    SPLIT 

-•,F4.l,'    PERCENT') 

23    FORMATIIH    .'FINAL    VOLUME........ 

.. ' ,16, •    AADT') 

26    FORMATdH    , 'FINAL    COMMERCIAL.... 

.•,F4.1,'    PERCENT') 
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27 
28 
29 
30 
31 
32 
33 


FORMATI 

FORMATI 

FORMATI 

FORMAT 

FORMATI 

FORMAT 

FORMAT 

XF4.0,* 

34  FORMATI 
X»IS*  ,18 

35  FORMAT 

36  FORMAT 

37  FORMAT 

38  FORMAT 
X»    COM 

39  FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

X18X,  'C 
62  FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 

X»:») 

72  FORMAT 

73  FORMAT 

74  FORMAT 

75  FORMAT 


40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 


63 
64 
65 
66 
67 
68 
69 
70 
71 


IH 

IH 

IH 

IH 

IH 

IH 

IHO 

KIP 

IH 

) 

IHO 

IHO 

IHO 

IH 

• 

IH 

IH 

IHO 

IHO 

IHO 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IH 

IHO 

IH 

IH 

IHO 

0  M 

IH 

IH 

IH 

IH 

IHO 

IHO 

IH 

IH 

IH 

IHO 

IHO 
IH 
IH 
IH 


•FINAL  AM  PEAK  SPLIT •♦F4.1,*  PERCENT* 

•NORMAL  CAPACITY •,F5.0,«  VEHICLES') 

•1  LANE  CLOSED  CAPACITY 'fFS-O,'  VEHICLES') 

•2  LANE  CLCSED  CAPACITY •  ,F5.0,  •  VEHICLES') 

•3  LANE  CLCSED  CAPACITY 'tFS.Ot'  VEHICLES') 

•4  LANE  CLCSED  CAPACITY •  ,F5.0,  •  VEHICLES') 

•THE  AVERAGE  WEIGHT  OF  A  CCMMERCIAL  VEHICLE  IS', 

•) 

•THE  HAXIf'UM  ANNUAL  18-KIP  AXLES  WITHOUT  ADJUSTMENT* 


•HOURLY  DISTRIBUTION  OF  TRAFFIC) 
•INITIAL  YEAR:») 

25X,^Af'  PEAK  DIRECTION*, 39X»PM  PEAK 
•H0UR^,2{'     WORK    SC-REC   PR  BUS 

ALL')) 
116C •-•)) 
I3,IX,14F8.3) 
•YEARLY  INCREMENT: •) 
•MAINTENANCE:^ ) 

•  VARIABLE   • ,45X, •ACTIVITIES  CODE 
•DESCRIPTICN^ ,17X,7II0) 

lOlI •-•) ) 

•WORK  LOCATION  SPACING 

•WORKLCAC  MODEL  FACTOR 

•SIMULATICN  WCRKLCAD 

•WORKLCAD  OVERRIDE 

•MAINTENANCE  LEVEL 

•TRAVEL  TIME  IN  HOURS 

•CURE  TIME  IN  HOURS... 

•TRAFFIC  CONTROL  HOURS 

•MAXIMUM  ZONE  LENGTH  IN  MILES... 
•MINIMUM  ZONE  LENGTH  IN  MILES... 
•ALLOWED  CONTINUOUS  CREW  HOURS.. 
•ALLOWABLE  VOLUME  CAPACITY  RATIO 
•PERFORMANCE  STANDARDS:') 

•TRAVEL  SPEED  BETWEEN  SITES 

•WALK  SPEED  BETWEEN  SITES 

25X,^C  0  N  C  R  E  T  E^,18X,^B  I  T  U 

P  0  S  I  T  E^l 

•ACTIVITY     •,3<7X,^UNIT  C0ST^,9X 

•  CODE    •,3(6X,'LAB+EQUIP   MATER 
I20( •-•) ) 

I5,5X,9F12.2) 

•MOTORIST  COSTS^ ) 

26X, • FUE L •, 9X, • 01 L',8X,^ TREAD  WEAR 

24X,^$/GALLCN^,5X,^$/ QUART •,5X,«$/ 

•PASSENGER  CARS • , lOX, F5.2 , 8X,F5.2, 

•CCMMERCIAL  VEHICLES •, 5X , F5. 2, 8X, F 

•TOTAL  OPERATING  COSTS  IN  DOLLARS/ 


DIRECTION^  ) 

VAC.    SCHOOL' 


NUMBER') 


7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 
7F10.2) 


...•,F3.0,»  MPH^) 
...•,F3.0,^  MPH») 
M  I  N  0  U  S^, 


,• PRODUCT  ION  •) ) 
IAL«,6X, 'RATE'  )) 


•) 

.001  INCH') 
2(9X,F5.2)) 
5.2,2(9X,F5.2)) 
1,000  VEHICLE  HOURS', 


21 'SPEED      PASSENGER      COMMERCIAL 

2( 13X,«CARS^,8X,^VEHICLES^  ,6X)  ) 

73{*-^)) 

21  I4,7X,F6.0,8X,F6.0,8X)  ) 


)} 
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76  FORMAK  IHO 

77  FORMATdHO 

78  FORMAK  IHO 
X«  SCHOOL 

79  FORMAK  IH 

80  FORMAK  IH 

81  FORMAK  IH 

82  FORMAK  IH 

83  FORMAK  IH 

84  FORMAK  IHO 

85  FORMAKIH 

86  FORMAKIH 

87  FORMAKIH 

88  FORMAK  IHO 

89  FORMAKIH 

90  FORMAK  IH 

91  FORMAKIH 

92  FORMAK  IH 

93  FORMAK  IH 

94  FORMAK  IH 

95  FORMAK  IH 

96  FORMAKIH 

97  FORMAK IH 

98  FORMAK  IH 

100  FURMAK IH 

101  FORMAKIH 

102  FORMAK  IH 

103  FORMAK  IH 

104  FORMAKIH 

105  FORMAK  IH 

106  FORMAK  IH 

107  FORMAK  IH 

108  FORMAKIH 

109  FORMAK  IHO 

110  FORMAK IHO 

111  FORMAK IHO 

112  FORMAK IHO 

113  FORMAK  IHO 
WRiTE(M0,10) 
WRITE(M0»111 
WRITE(M0,44) 
WRITE(M0,45) 
DO  1925  IH=1 
rtRITE|M0,107 

1925    CONTINUE 

WRITE(M0,10) 
WRITE(M0,112 
WRITE (MO, 109 
DO  1980  IW=1 
WRITE(M0,108 

1980   CONTINUE 

WRITE(M0,10) 
WRITE{M0»11) 
WRITE(M0,12) 


VALUE    OF 
CQMyERCIA 
(  'MINUTES 
6X)  ) 

SAVED' ,5 
10( •-•) ) 
(  I5,F10.2 
SHOULDER 
DETCUP  CA 
AVERAGE  I 
OCCUPANTS 
OCCUPANTS 

V/C 
CLOSURE    C 
SHOULDERS 
WORKSITE 
WORKSITE 
WORKSITE 
NUMBER    CF 
WORKSITE 
DISTANCE 
DETOUR    LE 
SPEED    LIM 
NORMAL    DE 
AVERAGE    S 
DETOUR    01 

1  LANE 

2  LANE 

3  LANE 

4  LANE 
FREEWAY 


TIME  SAVED  IN  DOLLARS/HOUR:') 
L  VEHICLES  =  8.72'  ) 

WORK    SOC-REC    PER  BUS    VAC, 


CL 
CL 
CL 
CL 
S 


2X, 'SAVED* ) 

,F9.2,F10.2 
CAPACITY... 
PACITY 

NCOME  LEVEL 

PER  VEHICL 

PER  VEHICL 

PATIC   ',5X 

ATEGCRY',5  1 

OPEN  TO  TR 

SWITCH 

MULTIPLIER. 
SIZE  ADD  ON 
ITERATIONS 
SPACING  SWI 
BETWEEN  INT 
NGTH .*••••. 
IT  ON  OETQU 
TOUR  VOLUME 
TOPS  ON  DET 
RECTIONAL  L 
CSEO  SPEED 
OSED  SPEED 
CSED  SPEED 
CSEO  SPEED 
PEED  LIMIT. 
0) 


,2F8.2,7X)) 


•fF 


CF  MCTORIST... 
E  ON  WORK  TRIPS 
E  ON  SCHOOL  TRI 
,50('-' )) 
10) 

AFFIC ',7F 

•,7F 

•,7F 

•  ,  7F 

•,7F 

TCH ',7F 

ERCHANGES 


•  •«•••••• 


5.0,'  VEHICLES') 
5.0,'  VEHICLES') 

',12) 

•,F4.1) 

PS ',F4.1) 


10.2) 
10.2) 
10.2) 
10.2) 
10.2) 
10.2) 
.',F5.2,'  MILES') 


,F5.2, 


MILES') 
MPH'  ) 
F5.2,'  ADT') 


OUR.. 
ANES. 
LIMIT 
LIMIT 
LIMIT 
LIMIT 


.',F5.2) 
.•,F5.2) 

•,F5.2,'  MPH* ) 

•,F5.2,'  MPH') 

•,F5.2,'  MPH') 

•,F5.2,'  MPH') 

',F5.2,'  MPH') 


PARTIAL        ;   LOCATION 


FULL  DEPTH 
Fl6.2) 

OCCUPANCY  HOURS  INDICATED  BY  1') 
RAYS') 

(MPH)' ) 


4,24X,7I1 
3,3F12.4) 
NO*  ,3X, • 
10.2,7X,5 
AVAILABLE 
RANDOM  AR 
IX,  "SPEED 

) 

( J, J=l,7) 


,24 

) IH, ( IHCUR(IH,J),J=1,7) 


) 

) 

,1000,20 

)IW,PATCHF(IW) ,PATCHP(IW),RLOC(IW) 
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WRITE{M0,13) ( ROAD(J,KP) ,J=l,2) 
WRITE(M0,14) {PAVE(ITYPE,J),J=1,3) 
WRITF(M0,15)PRGJLN 
WRI TE(M0,16)WIDTH 
WRITE(M0,17)NYEARS 
WRI TE{M0,18)DLIFE 
WRITE(M0,19)RLIFE 
WRITE(M0,20)PSIRS 
WRITE(M0,21) 

I TE  ST  =  ( VOLUME ( 1 ) +VOLUMEC  2 ) )*1000 
WRITE(Mn,22)ITEST 
TEMP1=TRUCKS(  l)-HRUCKS(2) 
WRITE(M0»23)TEMP1 
TEMP2=SPLIT(1)+SPLIT(2) 
WRITE(M0,2A)TEMP2 

ITEST=ITEST+V0LUME12)*INYEARS-1)*10  00 
WRITE(M0,25>ITEST 

TEMP1  =  TEMPH-TRUCKS(2)*(NYEARS-1) 
WRITE(M0,26)TEMP1 
TEMP2=TEMP2+SPLIT(2)*(NYEARS-1) 
WRITE(M0,27)TEMP2 
I=LANES+1 
TEMP1=CAP(I )*1000 
WRITE(Mn,28)TEMPl 
TEMP1=CAP(1)*1000 
WRITE(M0,29)TEMP1 
GOT0I1900) ,KP 
TEMP1=CAP<2)*100jO 
WRITE(M0,30)TEKP1 
GOTO(1900,1900) ,KP 
TEMP1=CAP(3)*1000 
WRITE(M0,31)TEMPl 
1900   CONTINUE 

TEMP 1=CAP( LANES )*1000 

WR[TE(M0,82)TEMP1 

T£MP1=DETOUR(5)*1COO 

WRI TF(M0,83)TEMP1 

WRITE(M0,95)DETCUR( 1) 

WRITE(M0,96)DET0UR(2) 

WRITE(M0,97)D£TCUP{3) 

WRITE(M0,98)DeTCUP(A) 

WRITE(MO,100)OETCLR(6) 

WRITE(M0,101)DETCUR(7) 

WRI TE(M0,106)SLIMITILANES+1) 

WRITE(MO,102)SLIMITa) 

WRITE{M0»103)SLIMIT(2) 

WRITE(M0»104)SLIVIT{3) 

WRITE(M0,105)SLIMIT(A) 

WRITE(MO,33)CWT 

ITEST=ARHO*1000000 

WRITE(M0,34)ITEST 

WRITE(MO,10) 

WRITE(M0,113) 

WRITE(MO,88){ J,J=1,5) 

N=LANES+1 
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WRITE(M0,88) 
WRITE(M0,87) 
DO  1950  1=1, 
VC=(I-i)*.l 
1950  WRITE(Ma,llO 
WRXT£(MU,IO) 
WRITE(MU,35) 
WRIT£(M0,36) 
WRITE (MO, 37) 
WRITE(M0,38) 
WRIT£(M0,39) 
00  1910  IH=1 
WRIT£(MU,40) 

1910  CONTINUE 
WRITE(MU,41) 
DO  1911  IH=i 
WRIT£(M0,40) 

1911  CONTINUE 
WRITE(M0,10) 
WRIT£(M0,11) 
rtRITE(M0,42) 
WRITE(M0,43) 
WRITE(M0,44) 
WRIT£(M0,45) 
WRITE! MG, 46) 
WRIT£(M0,47) 
WRIT£IM0,48) 
WRITE(M0,49) 
WRITE{M0,50) 
WRITE(M0,51) 
WKIT£(M0,52) 
WR1TE(M0,53) 
WRIT£(M0,54) 
WRIT£(M0,55) 
WRITE(M0,56) 
WRIT£(M0,57) 
WRITE(M0,89) 
WRIT£(M0,90) 
WRIT£(M0,91) 
WRITE{M0,92) 
WRIT£(M0,93) 
WRIT£(M0,94) 
WRIT£{M0,58) 
WRITE(M0,59) 
WRIT£{M0,60) 
WRITE(M0,61) 
WRIT£(M0,62) 
WRIT£(M0,63) 
WRITE(M0,64) 
00  1920  IA=1 
WRITE(M0,65) 

X(PS( IA,3,J)  , 
1920  CONTINUE 

rtRITEIMO,10) 


{J,J=1,N) 

11 

)VC, (SP(J,I) ,J=1,N) 


,24 

IH,(PCTA0T(IH,J,1,1) ,J=1,7),(PCTA0T(IH,J,2,1),J=1,7) 


,24 

IH,(PCTAOT( IH,J,1,2),J=1,7), (PCTADTl IH, J, 2,2), J= 1,7) 


(J,J=i,7) 

(UVER(2, J) 

,J=1,7) 

(0VER(3, J) 

,J=i,7) 

(SWORK(J),. 

J=l,7) 

(0V£R(4, J) 

rJ=l,7) 

(0VER(6, J) 

,J=1,7) 

(0VER(5, J) 

rJ=l,7) 

{0VER(7, J) 

,J=1,7) 

(0VER{8, J) 

rJ=l,7) 

(0V£R(9, J), 

rJ=l,7) 

tOV£R(ll,J 

>,J=1,7) 

(OVERd,  J) 

,J=1,7) 

(0VER(10,J 

), J=l,7) 

(OVER( 12,IA),IA=1, 

(SIM(IA,1) 

rIA=l,7) 

(SIM(IA,2) 

rIA=l,7) 

(SIM{IA,3) 

,IA=1,7) 

(SIM(IA,4) 

,IA=1,7) 

(SIM(IA,5) 

rIA=l,7) 

TCMOVE 

WALK 

7) 


,7 

IA,(PS{IA,l,J),J=l,3),(PS{lA,2,J),J=i,3), 

J=l,3) 


i 
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WRITE(Ma,66) 

WRITE<M0,67) 

WRITE(M0,68) 

WRITe(MU,69)FUEL(l) , 01 L { 1 )  ,  T  IRE S ( 1 ) 

WRITE(M0,70) FUEL(2) ,0IL(2J,TIRES(2) 

WRITE(M0,71) 

WRITE(M0,72) 

WRITE(M0,73) 

WRIT£(MU,74) 

00  1930  1=1,32 

IS=I+32 

WRIT£(M0,75J I, (OCOSTS( I,J),J=i,2),IS,(0C0STS(IS,J),J=i,2) 
1930  CONTINUE 

WRITE(MO,10) 

WRITE{MQ,66) 

WRITE ( MO, a4J INC 

WRITE(MU,35)0C*^0RK 

WRITE(M0,86)0CSCHL 

*^RITE(M0,76) 

WRITE(M0,77) 

WRITE(M0,78) 

WRITE<M0,79) 

WRITE(MO,80J 

DO  1940  1=1,20 

IT=I+20 

WRITE(M0,81J  I,  (VTRATE(J,  I)  ,  J  =  l ,  t>)  ,  I  T  ,  (  VTRATE  (  J  ,  I  T)  ,J  =  1,5) 
1940  CONTINUE 

RETURN 

END 
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C«*»*5!c«#«*««<c*««:«:*«  SUBROUTINE    YEA 

Q****««*****««*****  PROGRAM  'EAROMAR 

c 


SUBROUTINE  YEAR 
INTEGER  C0STS(7,5,8,2) 
COMMON 

1  CWT, 

2  IH0UR(24,7), 

3  LANES, 

4  0C0STS{63,2), 

5  =lLOC(iOOO), 

6  SPEEDN(24), 

7  V0LUME(2) , 
COMMON/ASSUME/ 

1  DET0UR(7), 

2  HW0RK(7) , 

3  IWT, 

4  0IL{2), 

5  PSIRS, 

6  SLIMIT(5), 

7  WALK, 

INTEGER  TJTALA(8) ,TaTALY(8) 
DIMENSION  IT0TAL(5,8,2) 
0IME^iS10N  0IRECT(2,3) 

DATA  DIRECT/'  AM  •,«PEAK«,« 
DO  2001  1=1,8 
TOTALAd  )  =  0 
2001  CONTINUE 

PSIASN=4.5 

RAGE=0 

AAXLES=0 


ARHO, 

CAP(i>), 

COSTS, 

DV0L(24), 

HV0L(24), 

ID, 

ITYPE, 

lY, 

KP, 

MI, 

MO, 

NYEARS, 

PATCHF(  1000), 

PATCHPdOOO), 

PROJLN, 

SIM(7,5), 

SP(5,11), 

SPEE00(24), 

SPLIT(2), 

SW0RK{7), 

TRUCKS(2), 

VTRATE(5,40), 

Z0NEL(7,4) 

ALIGN (3,6), 

AACOST, 

COMVOT, 

DLIFE, 

FUEL(2), 

HRS(7,24,4) 

lOIR, 

INC, 

IPRINT, 

JPRINT, 

OCSCHL, 

OCWORK, 

0VEK(12,7), 

PCTA0T(24, 

7,2, 

r2),PS(7,3,3), 

RATEI, 

RLIFE, 

SINOEX, 

TCMOVE, 

TIRES(2), 

TLEVEL(7), 

WIDTH, 

WEIGHT( 10, 

3) 

PM 


'PEAK 


C 


*«*THIS  ANALYSIS  IS  PERFORMED  FOR  NYEARS 


DO  2000  IY=1, NYEARS 

INCREMENT  VOLUME  FOR  EACH  YEAR 
VQLUME(1)=V0LUME(1)+V0LUME(2) 
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C   ***DETERMINE  THE  ANNUAL  COMMERCIAL  TRAFFIC  18  KIP  AXLE  LOADINGS 

AAXLES=AAXLES+CV0L*.365*.7  35/2 
C 
C   ♦♦♦ANALYSIS  AGE  IS  EQUAL  TO  ANAYSIS  YEAR  MINUS  PAVEMENT  RESURFACED  YEAR 

2323  AGE=IY-RAGE 
C 
C   ♦♦♦TEST  THE  PREDICTED  ACCUMULATED  AXLES  AGAINIST  ACTUAL  ACCUMULATED  AXLES 

IF( AGE^ARHO.GT.AAXLES)GOTO  2326 
C 
C   ♦♦♦BASE  ANALYSIS  AGE  ON  ACTUAL  AXLES 

AGE=AAXLES/ARHO 
C 
C   ♦♦♦COMPUTE  PSIf PSIASN=INITIAL  PSI,  OLIFE=OESIGN  L I FE, AGE=ANALYS IS  AGE 

2326  PSI=PSIASN-( ( ( PS  I ASN-1. 5 ) /OL IFE ) ♦AGE ) 

2349  CONTINUE 
C 
C   ♦♦♦ANALYSIS  AGE  IS  ASSUMED  RELATED  TO  LINEAR  LOSS  IN  PSI  OVER  ZQ    YEARS 

AGE=20^(PSIASN-PSI J/(PSIASN-1.5) 
C 
C 

C   ♦♦♦TEST  PSI  TO  DETERMINE  IF  PAVEMENT  SHOULD  BE  RESURFACED 
C   **«iF  PAVEMENT  IS  DUE  FOR  RESURFACING  SET  MAINTENANCE  LEVEL  E^UAL  TU  I 
C 

IF(PSI.LE.PSIRS)0VER(6f 7)=1 
C 
C 

C   ♦♦♦DEVELOPMENT  OF  ANNUAL  WORKLOAD  FOR  ACTIVITIES 
C 
C 
C   ♦♦♦DETERMINE  THE  TYPE  OF  ROADWAY, CONCRETE, 3 ITUMINOUS  OR  COMPOSITE 

GOTO  (2101,2102,2103), ITYPE 
C 

c 

C    ♦♦CONCRETE  WORKLOAD  ANALYSIS 
C 

c 

2101    CONTINUE 
C 
C      ♦♦♦GET    EACH    ACTIVITY 

DO    2104    IA=1,7 
C 
C       ♦♦♦INITIALIZE    WORK    A    TEMPORARY    VARIABLE    TO    HOLD    ANNUAL    WORKLOAD    BY    ACTIVITY 

WORK=0  % 

C 
C      ♦♦♦TEST    TO    SEE     IF    MAINTENANCE    LEVEL    IS    ZERO    MEANING    NO    WORKLOAD 

IF(0VER(6,IA).EQ.0)G0T0    2104 
C 
C       ♦♦♦BRANCH    TO    THE    APPROPRIATE    ACTIVITY    MODEL 

GOTO    (2120,212  5,2130,2135,2140,2108,2195) ,IA 
C 

C   ♦♦♦FULL  DEPTH  CONCRETE  PATCHING  MODEL 
2120  W0RK=0VER(3, IA)^34^( 1/ ( l+EXP (-l^ ( ( AGE- 10) /I. 25) ) )) 

GOTO  2108 
C 
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C***   INCREMENT  %    COMMERCIAL  FOR  EACH  YEAR 
TRUCKS (i)=TRUCKS( l)+TRUCKS(2) 


C**«   INCREMENT  AM  AND  PM  DIRECTIONAL  SPLIT  FOR  EACH  YEAR 
SPLIT(i)=SPLIT(l)+SPLIT(2) 
DO  20iO  10=1,2 
DO  2011  IT=1,7 
DO  2012  IH=1,24 
C 
C«**   INCREMENT  DISTRIBUTION  OF  TRAFFIC  FOR  EACH  YEAR 

PCTADT(IH,IT»ID, 1)=PCTA0T( iH,IT, ID, 1 } +PCTADT ( IH , I T,  I  0, 2) 
2012  CONTINUE 
N=LANES+1 
00  2020  IC=1,N 
00  2021  1=1,8 
C 

C***  INITIALIZE  COSTS  TO  ZERO  FOR  LACH  YEAR 
COSTS! IT,IC,I,ID)=0 
2021  CONTINUE 
2020  CONTINUE 
2011  CONTINUE 
2010  CONTINUE 
C 

c 

C 

c 
c 
c 
c 
c 
c 
c 
c 

c 
c 

c 


SUBROUTINE  AWORKL 
***NOTE:  OPTION  TO  TRANSFER 
***      1.  PSI  VALUE, 'PSI*  OR 
***      2.  ACCUMULATED  18  KIP  AXLES, 'AXLE* 


♦♦♦DETERMINE  THE  PSI  AND  ANALYSIS  AGE  FOR  YEAR 

♦♦♦INITIALIZE  THE  PRESENT  SERVICEABILITY  INDEX  TO  ZERO  EACH  YEAR 
PSI  =  0 

♦♦♦TEST  TO  DETERMINE  IF  A  PSI  HAS  BEEN  TRANSFERED  FROM  A  CALLING  PROGRAM 


C 

C 

c 
c 
c 

c 
c 


IF(PSI.EQ.0)GOTO  2310 
GOTO  2349 

♦♦♦INITIALIZE  THE  TRANSFER  ACCUMULATED  18  KIP  VARIABLE  TO  ZERO 
2310  AXLE^O 


I 

♦♦♦TEST    TO    DETERMINE    IF     'AXLE'     HAS    BEEN    TRANSFERED    FROM    A    CALLING    PROGRAM 

IF{AXL£.EQ.O)GOTU    2320 

♦♦♦ASSIGN    TRANSFERED    VALUE    FOR    AXLE    TO    VARIABLE    FOR    ACCUMULATED    13    KIP    AXLES 
AAXLES=AXLE 
GOTO    2i2^ 

♦♦♦DETERMINE  THE  DAILY  COMMERCIAL  TRAFFIC  VOLUME  FOR  ANALYSIS  YEAR 
2  32  0  CVUL=TRUCKS{ I ) ♦VOLUME! 1 ) /lOO 


i 
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C   ***PARTIAL  DEPTH  CONCRETE  PATCHING 

2125    WORK=HWORK( 1) 
C 
C       ***IT    IS    ASSUMED    THAT    PARTIAL    DEPTH    PATCHING    CANNOT    EXCEED    ONE    CUBIC    YARD 

IF(WORK.GT.l)WORK=l  > 
C      ***UEDUCT    PARTIAL    DEPTH    PATCHING    FROM    ACCUMULATED    FULL    DEPTH    PATCHING 

HWJRKC IJ  =HWORK{ 1 )-w6rK 
C 
C       **«FACTOR    WORKLOAD    IF    APPLICABLE 

W0RK=WORK*OV ER ( 3 , I  A ) 
C 
C       ***TEST    FOR    OVERRIDE    WORKLOAD    RATE 

IF(0VER(^tIA).N£.0JW0RK=0VER(4»IAJ 
C 
C   ♦**CUNVERT  PARTIAL  PATCHING  TO  SQUARE  FEET  AND  ACCUMULATE 

HWORKI IA)=HWORKi IA)+W0RK*9 
C 

GOTO    2104 
C 

C   ***CONCRETE  BLOWUPS 
C 
C   *«*ASSUM£D  THAT  THERE  ARE  NO  BLOWUPS  PRIOR  TO  FIFTH  YEAR 

2L30  IF( IY.LT.5)G0T0  2104 
C 
C   ***IT  IS  ASSUMED  THAT  THERE  WILL  BE  NO  BLOWUPS  AFTER  25  YEARS 

IF(IY.GT.25)G0T0  2 L04 
C 

C   «*«BLOWUP  MODEL  FOR  BETWEEN  5  AND  25  YEARS 
2131  WURK=.005*( IY-4)*0VER{3, lA) 

GOTO  2108 
C 

C       *** JOINT    SEALING    MODEL 
2135    WORK  =  52d0/OVER(2, I  A) *W IDTH«OVER( 6, I  A )*OVER( 3, I  A) 

GOTO  2108 
C 
C   ***TEMP3  IS  THE  PORTION  OF  THE  TOTAL  MUDJACKING  TO  BE  DONE  EACH  YEAR 

2140  TEMP3=.2  5*( . 5*1 Y )«*2*EXP (-.5*1 Y) 
C 
C   **«ANNUAL  MUDJACKING  LOCATIONS 

W0RK=TEMP3*52.8/0VER<2,I A)*OVER( 3,IA) 
C 
C   ***OVER  RIDE  WORKLOAD  RATE  FOR  ANY  ACTIVITY 

2108  IF (OVER (4, I  A ) . N£ .0 ) WORK=OVER (4, I  A) 
C 
C   ***ACCUMULATED  WORKLOAD  FOR  ANY  ACTIVITY 

HWORKI IA)=HWORK( IA)+WORK 
2104  CONTINUE 

GOTO  2199 
C 
C 

C   ***BITUMINOUS  WORKLOAD  ANALYSIS 
C 
C 
2102  CONTINUE 
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c 

C      *«*GET    EACH    ACTIVITY 

00    2105    IA=l,7 
C       ♦♦♦INITIALIZE    WORK    A   TEMPORARY    VARIABLE    TO    HOLD    ANNUAL    WORKLOAD    BY    ACTIVITY 

WORK=0 
C 
C       ♦♦♦TEST    TO    SEE     IF    MAINTENANCE    LEVEL    IS    ZERO    MEANING    NO    WORKOAD 

IF(OVER( 6, IA).EQ.OJGOTO    2105 
C 
C       ♦♦♦BITUMINOUS    WORKLOAD    AGE    FACTOR    MODEL 

FACTl=(l/(H-EXP((-AG£+iO)/i.l6))) 
C 

C   ♦♦♦BRANCH  TO  THE  APPROPRIATE  ACTIVITY  MODEL 
C 

GOTO (2 150, 2 1 55, 2 16 0,2109,2109, 2 109, 2195)  ,IA 
C 

C   ♦♦♦BITUMINOUS  PATCHING  WORKLOAD 
2150  W0RK=FACT1^1100^0VER(3,IAJ 

GOTO  2109 
C 

C   ♦♦♦CRACKSEALING  WORKLOAD 
2155  WORK=FACT1^1000^0VER.(3,IA) 

GOTO  2109 
C 

C   ♦♦♦BITUMINOUS  BASE  AND  SURFACE  REPAIR'  WORKLOAD 
2160  W0RK=FACT1^0VER(3,IAi^5 

GOTO  2109 
2109  CONTINUE 
C 
C   ♦♦♦OVER  RIDE  WORKLOAD  RATE  FOR  ANY  ACTIVITY 

IF(0V£R(4,IA).NE.0)WQRK=0VER(4,IAJ 
C 
C   ♦♦♦ACCUMULATED  WORKLOAD  FOR  ANY  ACTIVITY 

HWORK(IAJ=HWORK( IA)+WORK 
2105    CONTINUE 

GOTO    2199 
C 

c 
c 

C   ♦♦♦COMPOSITE  WORKLOAD  ANALYSIS 
C 
C 
C 
2103  CONTINUE 

FACT1={1/(1+EXP( (-AGE+10)/1.16)) ) 
C 

C   ♦♦♦GET  EACH  ACTIVITY 
C 

DO  2106  IA=1,7 
C   ♦♦♦INITIALIZE  WORK  A  TEMPORARY  VARIABLE  TO  HOLD  ANNUAL  WORKLOAD  BY  ACTIVITY 

WORK=0 
C 
C      ♦♦♦TEST    TO    SEE     IF    MAINTENANCE    LEVEL    IS    ZERO    MEANING    NO    WORKLOAD 

IF«0VER(6,IA).EQ.0)G0T0    2106 
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c 

C   ***BRANCH  TO  THE  APPROPRIATE  ACTIVITY  MODEL 
C 

GOTO (^17 0,2  1 10, 2 180, 2 185, 2 19 0,21 10, 2 195)  ,IA 
C 

C       ***UVERLAY    PATCHING    MODEL 
2170    WORK=FACTi*ilOO*OVERr3,IAj 

GOTO    2110 
C 

C       *««OVERLAY    BLOWUP    MODEL 
C 
C       ***ASSUMED    THAT    THERE    ARE    NO    BLOWUPS    PRIOR    TO    FIFTH    YEAR 

2180  IF( IY.LT.5JG0T0    2106 
C 

C       **«IT    IS    ASSUMED    THAT    THERE    WIL    BE    NO    BLOWUPS    AFTER    25    YEARS 

IF(IY.GT.25)G0T0    2106 
C 
C 
C      ***BLOWUP    MODEL    FOR    BETWEEN    5    AND    25    YEARS 

2181  W0RK=.005*( IY-4)*0VER(3,IA) 
GOTO    2110 

C 

C   ***CRACKSEALING  MODEL         * 
2185  WORK=FACT1*1000*OVER (3,1  A) 

GOTO  2110 
C 
C   ♦**ThMP3  IS  THE  PORTION  OF  THE  TOTAL  MUDJACKING  TO  BE  DONE  EACH  YEAR 

2190  TEMP3=.25*(.5*IY)**2*EXP(-.5*IY) 
C 
C   «**ANNUAL  MUDJACKING  LOCATIONS 

W0RK^T£MP3*5  2.8/OV£R(2,IA)*0V£R(3,IA) 

GOTO  2110 
C 

C      ***OVER    RIDE    WORKLOAD    RATE    FOR    ANY    ACTIVITY 
C 

2110    IF(0VER(4,IA).NE.0)W0RK=0VER{4,IA) 
C       ***ACCUMULATEO    WORKLOAD    FOR    ANY    ACTIVITY 

HWORK(IA)=HWORK( IA)+WORK 
2106    CONTINUE 

GOTO    2199 
C       ***SET    RAGE,    THE    YEAR    OF    PAVEMENT    RESURFAC I NG,EQUAL    TO    ANALYSIS    YEAR 
C 

2195    RAGE=IY 
C 
C       «**COMPUTE    RESURFACING    WORKLOAD 

HWURK(IA)=586*67*WI0TH*0VER(3,IA) 
C 
C   ***SET  ACCUMULATED  18  KIP  AXLES  EQUAL  TO  ZERO 

AAXLES=0 
C 
C       ***RESET    DESIGN    LIFE    TO    RLIFE,    THE    RESURFACED    DESIGN    LIFE 

0LIFE=RLIFE 
2199    CONTINUE 
C  RETURN 
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C  END 

C 

C 

C 

C       **«THIS    IS    A    ROUTINE    AT    THE    DIRECTION    LEVEL 

C 

C 

C 

UO    2030    10=1,2 
C 
C      ***INITIALIZE    TEMPI    FOK    EXCESS    VOLUME    TO    ZERO 

TEMP  1=0 
C 

DO  2031  IH=1,24 
C 
C   ♦♦♦DETERMINE  THE  HOURLY  TRAFFIC   VOLUME  ON  THE  FREEWAY 

HVOL(  IH)=VOLUME( 1) ♦A3S( I  0- 1-SPL I T ( 1 ) / 100 ) ♦PCTADT ( IH, 7 , 1  D, 1 ) 
X+TEMPl 
C 
C   ♦♦♦DETERMINE  NORMAL  FREEWAY  CAPACITY 

CAPACT=CAP{LAN£S+i)^Il-PCTADT( IH,6,I0, 1) ) 
C  • 

C   ♦♦♦TEST  TO  DETERMINE  IF  HOURLY  VOLUME  EXCEEDS  NORMAL  CAPACITY 
C   ♦♦♦AND  IF  IT  DOES  HOLD  EXCESS  IN  TEMPI 

IF(HVOL(IH).GT.CAPACT)TEMPi=HVOL(IH)-CAPACT 
C 
C   ♦*#L£T  THE  HOURLY  NORMAL  VOLUME  BE  THE  ACTUAL  VOLUME  LESS  TEMPI 

HV0L(IH)=HV0L(IH)-TEMP1 
C 
C   ♦♦♦UETERMIN  V/C  SUBSCRIPT 

I=(HVUL( IH)/CAPACT*.15)^10 
C 
C   ♦♦♦ASSIGN  A  SPEED  TO  THE  HOUR 

SPEEDiM(IH)=SP(LANES+l,I) 
C 
C   ♦♦♦DETERMINE  THE  HOURLY  TRAFFIC  VOLUME  ON  THE  DETOUR 

DVOL( IH)=HVOL( IH)^DETOUR ( 4) /VOLUME ( 1 ) 
C 
C   ♦♦♦DETERMINE  NORMAL  DETOUR  CAPACTITY 

CAPACT=D£T0UR<5)^{ 1-PCTADT ( IH,6,  ID,1)) 
C 
C   ♦♦♦DETERMINE   V/C  SUBSCRIPT 

I={OVOL( IH)/CAPACT+.15)^10 
C 
C   ♦♦♦SUBSCRIPT  CANNOT  EXCEED  ELEVEN 

IFII.GT. 11)1=11 
C 
C   ♦♦♦ASSIGN  A  SPEED  TO  THE  HOUR  FOR  DETOUR 

SP£EDD(IH)=SP(LANES, I) 
2031  CONTINUE 

CALL  MAINT 

CALL  MOTOR 
2030  CONTINUE 
C 
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C   ***TEST  FOR  RESURFACED  ROADWAY 

IF(0VER(6,7).NE.i)G0T0  2040 
C 
C   **frSET  MAINTENANCE  LEVEL  EQUAL  TO  ZERO 

aVER(6»7)=0 
C       ***RESET    THE    INITAIL    PSI    TO    3.6    ,     THIS    IS    80^    OF    THE    NEW    PAVEMENT    VALUE 

PSIASN=3.6 

DO  2035  IA=1,7 

HWORK(IA)=0 
2035  CONTINUE 

IFIITYPE.NE.DGOTO  2040 
C 

C   ***MAKE  THE  FOLLOWING  CONVERSIONS  FOR  CONCRETE  PAVEMENT 
C   ***T0  REFLECT  THAT  PAVEMENT  TYPE  IS  NOW  COMPOSITE 
C 
C   ***COMPOSITE  PAVEMENT  IS  iTYP£=3 

ITYPE=3 
C 
C   *««SET  THE  MAINTENANCE  LEVEL  FOR  PARTIAL  DEPTH  PARTCHING  TO  ZERO 

0VER(6,2)=0 
C 
C   **«SET  THE  SIMULATION  FACTOR  TO  TEN  FOR  BITUMINOUS  PATCHING 

SIM{i,2)=l0 
C 
C   ***SET  THE  MAINTENANCE  LEVEL  FOR  JOINT  SEALING  TO  ANNUAL 

0VER(6,4)=1 
2040  CONTINUE 
C 
C   ***THIS  IS. A  ROUTINE  TO  COMPUTE  ACCUMULATED  ACCIDENTS  AND  POLLUTION 

N=LANES-H 

00  2050  I0=i,2 

DO  2051  IC=1,N 

DO  2052  IA=l,7 

COSTS ( IA,IC,4,I0)=C0STS( IA,IC,3, ID) *100/AAC0ST 

COSTS! IA,IC,7,I0)=C0STS( I A, I C, 7, ID)* 100/ ( VOLUME ( 1)*PR0JLN) 
2052  CONTINUE 
2051  CONTINUE 
2050  CONTINUE 
C 
C 

C      SUBROUTINE  PRINT 
C 
C 

101  F0RMAT(IH1,25X,» TRAFFIC  WARRENTS  FOR  PREMIUM  PAVEMENTS  *i 
X'REQUIRING  REDUCED  MAINTENANCE') 

102  FORMATdH  ,25X  ,  '  ANAL  YS  IS  YEAR:  •,  14,  31X  ,•  DIRECT  ION  •,2A4) 

103  FORMATdHO, 'ACTIVITY     CLOSURE    MAINTENANCE  £      OPERATION', 
XlOX, 'ACCIDENTS'jllX, 'LOSS  T I  ME • , 7X , • POLLUT ION' ,9X, 'TOTAL') 

104  FORMATdH  ,'  NUMBER     CATEGORY    REHABILITATION       COSTS    ', 
X'       COSTS     #X100' ,5X, 'COSTS       HOURS      .01  DAYS', 9X, 
X'COSTS') 

105  FORMATdH  ,119('-'  )) 

106  FORMATdH  ,  14, 1 1 1,  8X  ,  »  $  •  ,  I  9,  7X,  •  $  •  ,  I  8,5X  , »  $•  ,21  7,3X  ,  •$  ' ,  18,  I  9, 
XI11,8X,'$' ,109) 
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10  7    FORMAT  (IH    , 2  X, 'TOTAL',  I8,8X,'$«,I9,7X»'$«,I8,5X,«$S2I7,3X,'$', 
Xia,I9,ill,8X,»$« ,109) 

108  FORMATdH    , 'MINIMUM    COSTS  '  ,  5X,  •  $•  ,  I  9,  7X  ,  •  $' ,  I  8,  5X  ,  •  $' ,217  , 
X3X,'$' ,18,19, I11,8X, •$' ,109) 

109  FURMATdH    , 'DISCOUNTED    COSTS       •  ,  5X  ,  '  $•  ,  I  9,  7X,  '  $•  ,  I  8,  5X  ,  •  $•  ,2  I  7  , 
X3X,'$' ,I8,I9,I11,8X, *$• , 109) 

110  FORMATdH    ,' ACCUMULATED    COSTS    •  ,  5X  ,  •  $•  ,  I  9,  7X,  •  $  '  ,  I  8,  5X  ,  •  $•  ,21  7  , 
X3X,'*' ,18, I9,I11,8X,'$' ,109) 

111  FORMATdH    ) 

112  FORMATdHO,'  MAINTENANCE  6      OPERATION', 
XI OX,  'ACCIDENTS' ,11X, 'LOSS  TIME',7X, 'POLLUTION' ,9X,  'TOTAL') 

113  FORMATdH  ,'  REHABILITATION       COSTS    ': 
X'       COSTS     #X100» ,5X, 'COSTS       HOURS      .01  DAYS', 9X, 
X'COSTS') 

115  FORMATdHO,'***  SIGNIFIES  THAT  ROAD  CANNOT  BE  OCCUPIED  WITHIN', 
X'  V/C  CONSTRAINTS') 
DO  5100  1=1,8 
DO  5101  ID=l,2 
N=LANES+1 
00  5102  IC=l,N 
ITOTALdC,I,ID)=0 
5102  CONTINUE 
5101  CONTINUE 

TOTALY( I  )  =  0 
5100  CONTINUE 

DO  5110  ID=1,2 
OD  5111  IA=1,7 
1=1 

N=LAN£S+1 
C 

C   ***ACCUMULATE  TOTAL  COST  BY  ACTIVITY  AND  CLOSURE  AND 
C   ***ACCUMULAT£  TOTALS  FOR  EACH  COST  ITEM  tiY  CLOSURE 
DO  5112  IC=1,N 

COSTS  (  IA,IC,8,ID)  =  C0STS( IA,IC,5,ID) 
DO  5113  K=l,3 

COSTS( IA,IC,8,ID)=CUSTS(IA,IC,8,ID)+C0STS(IA,IC,K, ID) 
ITOTALdCK,  ID)  =  ITOTAL(IC,K,  ID)+COSTS(  IA,IC,K,  ID) 

5113  CONTINUE 

DO    5114    K=4,8 

ITOTALdCK,  ID )  =  ITOTALdCK,  ID)+COSTS(  IA,ICK,  ID) 

5114  CONTINUE 
C 

C   *«*HOLD  LANE  CLOSURE  SUBSCRIPT  FOR  MINIMUM  COST 

IF  I  COSTS d A, IC,8,ID).LT.C0STS( lA , I , 8 , I D)  ) I  =  IC 
5112  CONTINUE 
C 
C   ***ACCUMULATE  AND  HOLD  MINIMUM  COST 

DO  5115  K=l,8 

TOTALY(K)  =  TOTALY(K)+COSTS(  IA,I  ,K,ID) 

5115  CONTINUE 
5111  CONTINUE 
5110  CONTINUE 

C 

C       ***TtST    FOR    PRINT    LEVEL 


218 


c 

♦  ** 

c 

«»* 

c 

♦  ** 

c 

♦  ♦♦ 

c 

c 

**« 

1.  DIRECTION  DETAIL 

2.  YEAR  DETAIL 

3.  YEAR  SUMMARY 

4.  ANALYSIS  SUMMARY 
GOT0(5010f 5020,5000, 5000), IPRINT 

***DIRECTIUiM  DETAIL  PRINT  ROUTINE 

5010  CONTINUE 

DO  5011  ID=l,2 
IP  1  =  0 

5014  WRITE(M0,10U 
WRITE(M0,102)IY, ( DI RECT ( J , ID ) , J= 1, 2) 
IF(ID.GT.2)ID=1 

WRITE(M0,103) 

WRITE(MD,104) 

^^RITE(M0,105) 

DO  5012  IA=i,7 

N=LANES+1 

00  5013  IC=1,N 

V^RITE(M0,106)IA,  IC,(C0STS(  IA,IC,J,ID),J=l,a) 
5013  CONTINUE 
5012  CONTINUE 

WRITE(M0,105) 

WRITE(MO,lll) 

N=LANES+1 

DO  5015  IC=1,N 

WRITE{MO,107)IC, (ITOTALi IC,J,IDJ ,J=1,8) 

5015  CONTINUE 
WRITE{MU,111 ) 
WRITE{M0,111) 
WRITE(M0,115) 

5011  CONTINUE 
C 

C   ***YEAR  DETAIL  PRINT  ROUTINE 

5020  CONTINUE 
WRITE(M0,I01} 

WRITE(M0,102)IY, (DIRECTtJ,3) ,J=1,2) 
WRITE(M0,103) 

WRITE{MO,104) 

»^RITE(MG,105) 

DO  5021  IA^1,7 

N=LANES+i 

DO  5022  IC=1,N 

DO  5023  J=l,8 

COSTS!  I  A, I C, J, l)=CUSTS(IA,IC,J,l)+COSTS{  IA,IC, J,2) 
5023  CONTINUE 

WRITE(M0,106)IA,IC,(C0STS(IA,1C, J, I) ,J=1,8) 
5022  CONTINUE 

5021  CONTINUE 
WRITE(M0,105) 
WRITE(M0,111) 
N=LANES+1 

00  5024  IC=1,N 
DO  5025  J=l,8 
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ITOTAL(IC,J,l)  =  ITOTAL(IC,J,l)*ITaTAL(  IC,  J,2) 

5025  COIMTINUE 

WRITE  (MO,  107)  ICf  (ITOTALdCJfDf  J=l,8) 
5024   CONTINUE 

WRITE(M0,I05) 

GOTO  5026 
C 
C   ***SUMMARY  HEADER  PRINT  ROUTINE 

5000  CONTINUE 
C 
C   ***PRINT  SUMMARY  HEADER  ONLY  ONCE 

GOTO(5027,5026), lY 

GOTO  5026 

5027  WRITEJMO.lOl) 
WRITE (MO, I 12) 
WRITE(M0,113) 
WRITE{M0,105) 
WRITE(M0,11I) 

5026  CONTINUE 
C 

C   ***TEST  FOR  YEARLY  SUMMARY  PRINT 

5028  IF(IPRINT.GT.3)G0T0  5029 
WRITE(M0,111) 
WRITE(MO,108)(TOTALY(J),J=1,8). 

C 

C   ***OISCOUNT  MiNIMUM  COSTS 

5029  CONTINUE 
A=(H-RATEI)**IY 
TOTALY{l)=TOTALY(l)/A 
T0TALY(2)=TOTALY(2)/A 
TOTALYI3)=TOTALY{3)/A 
T0TALYi5)=T0TALY(5)/A 
T0TALYC8)=T0TALY(8)/A 

C 

C   ***ACCUMULAT£  DISCOUNTED  COSTS 

DO  5030  J=l,8 

TOTALA(J)=TOTALA(J)+T0TALY(J) 

5030  CONTINUE 
C 

C   ***TtST  FOR  YEARLY  SUMMARY  PRINT 
IFUPRINT.GT.3)G0T0  2000 
WRITE(M0,109)(TOTALY{J),J=l,8) 
WRITE ( MO , I 10 ) ( TOTALA ( J ) , J= I , 8) 
WRITE(M0,105) 

5031  CONTINUE 
2000  CONTINUE 

C 

C   **»PRINT  ANALYSIS  SUMMARY 

WRITE(M0,110)(TOTALA{J),J=l,8) 
C      RETURN 

RETURN 

END 
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c 
c 

£♦»*♦♦♦*♦»♦♦♦**♦**»*  SUBROUTINE  MAINT  «<c*#«««««*«*««* 

(;♦♦♦♦*♦«*♦***♦****♦*  itcA^^^Xcit'^^^  «:«=««« 

Q*««*««««****"J=«*****  PROGRAM  'EARGMAR*  «*«»«««***«*«« 

c 

SUBROUTINE  MAINT 
INTEGER  C0STS(7,5,8,2) 


COMMON 

ARHO, 

CAP(5), 

COSTS, 

I  CWT, 

0V0L{24), 

HV0L(24), 

ID, 

2  IHQUR(24,7), 

I  TYPE, 

lY, 

KP, 

3  LANES, 

MI, 

MO, 

NYEARS, 

4  GC0STS(65,2J, 

PATCHF<  1000), 

PATCHPI 1000), 

PRGJLN, 

5  RLOC(iOOO), 

SIM{7,5), 

SP(5,IU, 

SPE£D0(24) , 

6  SPEEDN(24), 

SPLIT(2), 

SW0RK(7) , 

TRUCKS(2), 

7  VOLUME! 2), 

VTRATt(5,40J, 

Z0NEL(7,4) 

COMMON/ASSUME/ 

ALIGN (3,6), 

AACOST, 

COMVOT, 

1  OETOURC  71 , 

DLIFE, 

FUEL(2i  , 

HRS(7,24,4), 

2  HW0RK17), 

IDIR, 

INC, 

IPRINT, 

3  IWT, 

JPRINT, 

OCSCHL, 

• 

OCWORK, 

4  0IL(2), 

OVER (12,7), 

PCTA0T{24, 

7,2,2) 

,PS(7,3,3) , 

5  PSIRS, 

RATEI, 

RLIFE, 

SINDEX, 

6  SLIMITt5)f 

TCMOVE, 

TIRES(2), 

TLEVEL(7), 

7  k^ALK, 

WIDTH, 

WEIGHT! 10, 

3) 

DIMENSION  CREWH(4),JH0UR(24) .NOT I ME (4) 

00  3010  IA=i,7 
C   ***TEST  TO  DETERMINE  IF  THERE  IS  ANY  WORKLOAD 

IF(HWORK(IA) .EQ.O)GOTO  3010 
C 

C**«   DETERMINE  A  FACTOR  FOR  THE  LEVEL  OF  MAINTENANCE 
C***   THE  LEVEL  OF  MAINTENANCE  FACTOR  MUST  BE  AN  INTEGER  NUMBER 

NA=0VER(6,IA) 
C 
C***   TEST  TO  DETERMINE  IF  WORKLOAD  WILL  BE  DONE  AT  LEAST  ONCE  IN  YEAR 

IF(NA.GE.1)G0T0  3021 
C 
C   ***ACCUMULATE  MAINTENANCE  LEVEL  IN  FIRST  DIRECTION 

IF(ID.£Q,1)TLEVEL(IA)=TLEVEL(  I  A)  *-OVER  (  6,  I  A)  ♦.001 
C 
C***   TEST  TO  DETERMINE  IF  ACTIVITY  WILL  BE  PERFORMED  IN  ANALYSIS  YEAR 

IF(TLEVEL(IA).LT.1)G0T0  3010  . 
C 
C***   RESET  THE  ACCUMULATED  MAINTENANCE  LEVEL  VARIABLE  BECAUSE  WURK  EXECUTED 

IF(ID.EQ.2)TLEV£L(IA)=0 
C 
C***   SET  LEVEL  OF  MAINTENANCE  FACTOR  TO  ONE 
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3021  CONTINUE 
C 
C*«*   DETERMINE  THE  CREW  HOUR  COST  FOR  LABOR  ANO  EQUIPMENT 

CU=PS{IA,ITYPE,1) 
C 
C   ***INITIALIZE  WORKSITE  TYPE 

M=SIM( IA,1) 
C 
C   ***UET£RMINE  IF  WORKSITE  IS  UNIFORMLY  OR  RANDOMLY  SPACED 

N=SIM(IA,5) 
C 
C   ***INITIALIZE  LF,  A  LANE  FACTOR  USED  TO  MODIFY  SIMULATION  WORKLOAD 

LF  =  1 
C 
C***   ESTABLISH  THE  AMOUNT  OF  WORKLOAD  TO  BE  DONE  FOR  EACH  OCCUPANCY  PERIOD 

WK=HWORK( IA)/NA 
C 
C***   ASSIGN  CREW  TRAVEL  TIME  TO  TT 

TT=0VER(5tIA) 
C 
C***   DETERMINE  THE  OCCUPANCY  FIXED  CREW  HOURS  FOR  EACH  OCCUPANCY 

FIXHRS  =  2«0VER(8,IA)<-0VER(7,IAJ 
C 
C***   TEST  CREW  WORK  HOURS  AGAINST  24,  WHICH  MEANS  CONTINUOUS  WORK 

IF{OVER(  1,IA).NE.24)G0T0  3050 
C 
C***   ASSUME  NO  CREW  TRAVEL  TIME  OR  FIXHOURS  FOR  2^  HR  OCCUPANCY 

TT  =  0 

FIXHRS=0 
C 
C***   ADJUST  AVAILABLE  CREW  HOURS  FOR  TRAVEL  TIME 

3050  CREWT=OVER{l,IA)-TT 
C 
C***   ASSIGNMENT  PROCESS  FOR  ALL  POSSIBLE  LANE  CLOSURES 

DO  3031  IC=1, LANES 
C 
C   ***TEST  TO  DETERMINE  IF  LANE  FACTOR, 'LF*  WILL  BE  SET  EQUAL  TO  LANES  CLOSED 

IF(M.EQ.3)LF=IC 
C 
C   ***  INITIALIZE  FIRST  UNAVAILABLE  HOUR  OF  ROADWAY  OCCUPANCY  TO  ZERO 

lMi=0 
C 
C   ***ADJUST  THE  AVAILABLE  OCCUPANCY  HOURS  ARRAY  MHOUR'  FOR  V/C  CONSTRAINS 

DO  3700  IH=1,24 
C 
C   **«INITIALIZE  JHOUR  TO  IHOUR 

JHOURt IH)=IHOUR( IH,IA) 
3700  CONTINUE 
C 
C   ***IF  DETOUR  EXISTS   BYPASS  V/C  RESTRAINTS 

IFdC.EQ. LANES. AND. GVER(  12,  I  A)  .EQ.  0)  GOTO  3703 
C 
C   *»«TEST  TO  DETERMINE  IF  ROAD  WILL  BE  CLOSED  FOR  24  HOURS 
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IFCOVERl If IA).EQ.24)G0T0  3703 

00  3  704  IH=1,24 
C 
C   ***OETERMINE  THE  CAPACITY  OF  CLOSURE 

CAPACT=CAP(IC)*-(0VER(12,  lA  )*CAP(  LANES)  ) 

IF(IC.NE.LANES)GOTO  3701 
C 
C   ***DETERMINE  CAPACITY  OF  SHOULDERS 

CAPACT=CAP(IC>*OVER( 12f lA) 

3701  CONTINUE 
C 

C   ***COMPUTE  THE  VOLUME  CAPACITY  RATIO 

TeMPI=HVOL(IH)/(CAPACT*( l-PCTADT( IH,6,I0,l)) ) 
C 
C   ***TEST  THE  VOLUME-CAPACITY  RATIO  AGAINST  THE  PERMITTED  V/C  RATIO 

3702  IF(TEMP1.GT.OVER(10,IAJ) JHOUR(IH)=0 
3704  CONTINUE 

3703  CONTINUE 
C 

C***   INITIALIZE  THE  NUMBER  OF  TRAFFIC  CONTROL  ZONES  FOR  LANE  CLOSURE  TO  ZERO 

NZ=0 
C 
C***   INITIALIZE  THE  ACCUMULATED  ZONE  LENGTH  FOR  LANE  CLOSURE  TO  ZERO 

ZL=0 
C 
C***   INITIALIZE  CREW  HOURS  FOR  LANE  CLOSURE  TO  ZERO 

CREWH(IC)=0 
C 
C   ***INITIALIZE  NO  AVAILABLE  OCCUPANCY  TIME  INDEX 

NOTIME(IC)=0 
C 
C***   INITIALIZE  OCCUPANCY  HOURS  FOR  LANE  CLOSURE  TO  ZERO 

DO  3015  IH=1,24 

HRSC IA,IH,IC)=0 
3015  CONTIMUE 
C 
C**«   ESTABLISH  SIMULATION  WORKLOAD  DENSITY  FACTOR 

OENSEW=SWORK(IAi*LF/(WK*IC) 
C 
C 

C***   SIMULATE  THE  ASSIGNMENT  OF  CREWS  TO  THE  ROAD  TO  PERFORM  WORK 
C 

c 

C***   INITIALIZE  VARIABLES  FOR  SIMULATION  PROCESS 
C***   PATCH  ARRAY  COUNTER 

IW  =  0 
C 
C***   ACCUMULATED  PRODUCTION  TIME 

TTIME=0 
C 
C   ***ESTA8LISH  THE  NUMBER  OF  SIMULATION  ITERATIONS 

ISIM=SIM<IA,4) 
C 
C   ***ESTABLISH  SIMULATION  FACTOR  FOR  RANDOM  LOCATIONS 
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SFACT=1000/ISIM 
C 

C***   INCREMENT  THE  WORKLOAD  ARRAY 
3025  IW=IW+1 

IF{IW.GT.ISIM)GQT0  3030 
C 

c 

C      SUBROUTINE  AVAILH 
C 

c 

C***   IF  IMl  IS  ZERO  THIS  IS  THE  FIRST  TIME  FOR  ROUT INE, AC TI VI TY , CLOSURE 

IF(  IMl.NE.OGOTO  3492 
C 
C***   DETERMINE  THE  FIRST  HOUR  WHEN  CREWS  CAN  NOT  OCCUPY  ROAD 

DO  3490  1=1,24 

IF( JHQUR(I).Eg.0)GOTO  3491 

3490  CONTINUE 
C 

C***   ASSUMt  FIRST  OCCUPANCY  HOUR  TO  BE  6AM  IF  ALL  HOURS  ARE  AVAILABLE 
IM1=6 
GOTO  3492 

3491  IM1=I 
C 

C***   INITIALIZE  AVAILABLE  CREW  HOURS  FOR  A  CONTINUOUS  OCCUPANCY 

3492  AVAIL=0 
C 

C***   DETERMINE  FIRST  AVAILABLE  OCCUPANCY  HOUR 
00  3500  I=IM1,24 
IF(  JHOURdJ-EQ.iJGOTO  3501 

3500  CONTINUE 
C 

C**«   ALLOW  SEARCH  TO  CONTINUE  INTO  NEXT  DAY 

00  3504  I=l»24 

IF(JHOUR(I ).Eg.l)GOTO  3501 
3  504  CONTINUE 

NOTIMt(IC)=l 

GOTO  3031 
C 
C**«   ACCUMULATE  IN  AVAIL  THE  TOTAL  HOURS  OF  CONTINUOUS  OCCUPANCY 

3501  CONTINUE 
C 

C***   IM2  IS  ASSIGNED  TO  1ST  AVAILABLE  WORK  HOUR 

IM2=I 
C 

DO  3502  J=I,24 
C 
C   ***TEST  FOR  AN  AVAILABLE  HOUR 

IF( JHOUR(J).EQ.O)GOTO  3505 
C 
C   ***ACCUMULATE  THE  NUMBER  OF  CONTINUOUS  AVAILABLE  HOURS 

3502  AVAIL=AVAIL+l 
C 

C***   ALLOW  THE  ACCUMULATED  HOURS  OF  OCCUPANCY  TO  CONTINUE  INTO  THE  NEXT  DAY 
DO  3  503  J=l,24 
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IF(JHJUR{J). EQ.OJGOTO    3505 
C 
C***       THE    WORK    PERIOD    MAY    NOT    EXCEED    24    HOJRS    FOR    A    GIVEN    LOOP 

IF(AVAIL  +  l.GT.24)G0T0  .3505 
3503  AVAIL=AVAIL+1 
C 
C***   THE  VALUE  OF  J  ASSIGNED  TO  IMl  REFLECTS  THE  1ST  UNAVAILABLE  HOUR  OR  6AM 

3505  1M1=J 
C 

C   ««*MAKE  THE  CONTINUOUS  AVAILABLE  OCCUPANCY  TIME  EQUAL  TO 
C   «**THE  SMALLER  VALUE  BETWEEN  NET  CREw  TIME  'CREWT*  OR  'AVAIL* 

1F(CHEWT.LT.AVAIL)AVAIL=CREWT 
C 
C   ***AOJUST  AVAIL  FOR  THE  FIXED  HOURS  REQUIRED  ON  THE  ROADWAY 

AVAIL=AVAIL-FIXHRS 
C 
C***       bSTASLISH    THE    LOCATION    OF    THE    FIRST    WORKSITE    IN    THE    TRAFFIC    ZONE 

DIST1=DENSEW*RL0C( IW) 
C 
C       **»INITIALIZE    THE    SPACING    FACTOR    • SF •    FOR    UNIFORM    SPACING 

SF^DISTl 
C 
C**«   DETERMINE  THE  AMOUNT  OF  TIME  REQUIRED  TO  DO  WORK  AT  FIRST  SITE 

IND£X=1 

GOTO    3100 
3120    CONTINUE 
C 
C***       SUBTRACT    WORKTIME    FROM    AVAILABLE    WORK    TIME 

AVAIL=AVAIL-TIME 
C 
C***       ACCUMULATE    THE    PRODUCTIVE    WORK    TIME    ON    THE    ROAD 

TTIM£=TTIM£+TIME 
C 
C***   HOLD  THE  LOCATION  OF  THE  WORK  SITE  WHICH  HAS  JUST  BEEN  COMPLETED 

DIST3=DIST1 
C 
C***   TEST  TO  DETERMINE  IF  AVAILABLE  WORK  TIME  IS  EXCEEDED 

IF (AVAIL) 320 0,32 00,31 10 
C 

C**«   INCREMENT  THE  WORKLOAD  ARRAY 
3110  IW=IW+i 

c 

C«*«   IF  THE  SIMULATION  IS  COMPLETE  TOTAL  CREW  HRS.  AND  HOLD  OCCUPANCY  HRS. 

IF(Iw.GT.ISIM)GOTO  3200 
C 

C««*   DETERMINE  THE  LOCATION  OF  THE  NEXT  WORKSITE  ON  THE  ROAD 
C 
C   ***GOTO  APPROPRIATE  SPACING  FACTOR 

G0T0{3101,3102) ,N 
C 

C       ***RANDOM    SPACING    LOCATION 
3101    DIST2=DENSEW*RL0C{ IW)*SFACT 

GOTO    3103 
C 
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C   ***UNIF0RM  SPACING,  BASED  ON  JOINT  SPACING  OR  SPECIFIED  SPACING  FACTOR 
C   ***SF  IS  ACCUMULATED  DISTANCE  FOR  UNIFORM  SPACING  IN  MILES 

3102  SF=SF+OV£R(2,IA)/5280 
C 

C   ***UNIFORM  SPACING  LOCATION 
0IST2=SF 

3103  CONTINUE 
C 

C**«   DETERMINE  IF  THE  NEXT  WORK  SITE  IS  WITHIN  THE  ALLOWED  TRAFFIC  ZONE 
C   ***AND  IF  IT  IS  THEN  DETERMINE  THE  TIME  REQUIRED  TO  DO  WORK 

INDEX=3 

IF ((DIST2-DIST1J.lt. OVER (9, I  A)) GOTO  3100 
C 
C***   COMPUTE  THE  TIME  REQUIRED  TO  MOVE  AND  INSTALL  NEW  TRAFFIC  CONTROL  ZONE 

TEMP1=(0IST2-DIST1)/TCM0VE+0VER(8,IA) 
C 
C   ***IF  THE  TRAVEL  TIME  TO  THE  NEXT  SITE  EXCEED  2  HRS,  GET  OFF  ROAD 

IFCTEMPl.GT.(0VER(8,IA)*2))G0T0  3123 
C 
C***   DETERMINE  TIME  REQUIRED  TO  DO  WORK  AT  FIRST  SITE  IN  NEW  T/C  ZONE 

INDex=2 

GOTO  3100 

3121  TIME=TIME+TEMP1 
C 

C   ***0ETERMiN£  IF  REMAINING  AVAILABLE  TIME  WILL  BE  EXCEEDED 

IF(( AVAIL-TIME). LT.0.)G0T0  3123 
C 
C   ***ACCUMULATE  TRAFFIC  CONTROL  ZONE  DISTANCE  > 

ZL=ZL+{DIST3-DIST1)  i 

C 
C   ***ACCUMULATE  THE  NUMBER  OF  TRAFFIC  CONTROL  ZONES 

C   ***INITIALIZE  FIRST  WORKSITE  IN  TRAFFIC  CONTROL  ZONE  ! 

DIST1=0IST2  ; 

GOTO    3111  ; 
C 

c 

C   ***COMPUTE  THE  TIME  REQUIRED  TO  WALK  TO  NEXT  WORKSITE 

3122  TIME1=(DIST2-DIST3)/WALK 
C 
C   ♦**IF  THE  TIME  REQUIRED  TO  WALK  TO  THE  NEXT  SITE  EXCEEDS  6  MINUTES,  DRIVE 

IF(TIME1.GT.«1)TIM£1=TIME1*WALK/TCM0VE 
C 
C   ***COMPUTE  TOTAL  TIME  TO  00  NEXT  WORK  SITE 

TIME=TIME+TIME1 
C 
C   ***DETERMINE  IF  REMAINING  AVAILABLE  TIME  WILL  BE  EXCEEDED 

IF((AVAIL-TIMt).GE.0.0)GOTO  3111 
C 
C   ***RESET  IW  TO  REFLECT  THAT  NEXT  SITE  WAS  NOT  DONE 

3123  IW=IW-1 
GOTO    3200 

C 
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C**«   ADJUST  THE  AVAILABLE  TIME  TO  REFLECT  PERFORMANCE  OF  WORK 

3111    AVAIL=AVAIL-TIME 
C 
C***       ADD    TO    ACCUMULATED    PRODUCTION    TIME 

TTIME=TTIME*TIME 
C 
C***   RESET  THE  LAST  SITE  WHERE  WORK  WAS  COMPLETE 

DIST3=DIST2 

GOTO  3110 
C 

C   ***THIS  ROUTINE  DETERMINES  PRODUCTION  TIME  AT  WORKSITES 
C 

3100  CONTINUE 
C   »**BRANCh  to  the  APPROPRIATE  WORKSITE  TYPE 

GU  TO  { 3 10  4 1 3 1 05 »  3 1 06  J  ,  M 

3104  TEMP2=PATCHF(IW) 
GOTO    3107 

3105  TEMP2=PATCHP(IW) 
GOTO    3107 

3106  TEMP2=LF 
C 

C   ***COMPUTE  PRODUCTION  TIME  AT  A  WORKSITE 

3107  IF{PS(IA,ITYPEt3).NE.0)G0T0    3109 
WRITE(M0,3i08J lA 

310d    FORMATdH    , 'ACTIVITY    STANDARD' ,  I  2  ,  •    UNDEFINED'} 
3109    TIME=(TEMP2*SIM(  lA,2)-»-SIM(  IA,3))/PS(  lA,  I  TYPE, 3) 
C 
C       ***RETURN    TO    APPROPRIATE    PLACE     IN    SIMULATION 

GOTO (3 120t 3121,3122) , INDEX 
C 

3200  CONTINUE 
C 
C   ***ACCUMULATE  TRAFFIC  CONTROL  ZONE  DISTANCE 

ZL=ZL+(DIST3-DIST1)+0VER(11, lA) 
C 
C   ***ACCUMULATE  THE  NUMBER  OF  TRAFFIC  CONTROL  ZONES 

NZ=NZ+1 
C 
C«*4c       TOTAL    THE    CREW    HOURS    ON    THE    ROAD 

STIME=TTIME+FIXHRS 
C 
C***       ACCUMULATE    THE    CREW    HOURS    FOR    EACH    ROADWAY    OCCUPANCY 

CR£WH(IC)=CREWH(IC)+STIME+TT 
C 
C*«*       DETERMINE    LAST    HOUR    OF    ROAD    OCCUPANCY 

M1=IM2+STIME 
C 
C***       DETERMINE    THE    ACTUAL    TIME    SPENT    IN    LAST    OCCUPANCY    HOUR 

RTIM£=IM2*ST1ME-M1 
C 
C***   DETERMINE  LAST  EVEN  FULL  OCCUPANCY  HOUR 

Mi=Ml-l 
C 
C***   ASSIGN  EACH  HOUR  OF  ROADWAY  OCCUPANCY  TO  AN  ARRAY  FOR  EACH  HOUR  OF  DAY 
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DO  3201  K=IM2,M1 

J=K 
C 
C**«   NO  HOUR  MAY  EXCEED  24 

IFCJ  .GT.24)J  =  J-24 

HRS(IA,J,IC)=HRS( lA, J, IC)+1 
3201  CONTINUE 
C 
C**«   GET  THE  LAST  HOUR  OF  OCCUPANCY 

J=J+l 
C 
C***       NO    HOUR    MAY    EXCEED    24 

IF(J.GT.24)J=J-24 
C 
C^c**   ASSIGN  THE  REMAINING  OCCUPANCY  TIME  TO  LAST  OCCUPANCY  HOUR 

HRS( IA,J,ICJ=HRS{IA, J,IC)+KTIME 
C 
C«**       INITIALIZE    OCCUPANCY    VARIABLES 

TTIME=0 

GOTO  3025 
C 

C***   END  OF  ROAD  CLOSURE  SIMULATION 
C 
C   **«D£TERMINE  THE  AVERAGE  TRAFFIC  ZONE  LENGTH  FOR  LANES  CLOSED  AND  ACTIVITY 

3030  ZON£L(IA,IC}=ZL/NZ 
C 

C   ♦**FACTOR  CREW  AND  OCCUPANCY  HOURS  FOR  MULTIPLE  LANE  CLOSURES 

CREriH(IC)=CREWH(IC)/LF 

DO  3029  IH=l,24 

HRS(  IA,IH,IC)  =  HRS(IAf IH,  IC)/LF 
3029    CONTINUE 
C 
C      ***END    OF    LANE    CLOSURE    LOOP 

3031  CONTINUE 

3032  CONTINUE 
C 

C 

C   *«*ASSIGN  DISTANCE  BETWEEN  DETOUR  EXIST  POINTS  TO  FREEWAY 

C   ***INFLUENCE  ZONE  FOR  ALL  LANES  CLOSED 

IFIOVERi 12,IA).EQ. 0)Z0NEL(IA,LANES)=DET0UR(1) 
C 

C««*   DETERMINE  THE  TOTAL  MAINTENANCE  COST  FOR  ACTIVITY  AND  EACH  CLOSURE 
C 
C 
C***   RATIO  THE  ANNUAL  LANE  MILE  PROJECT  WORKLOAD  TO  THE  SIMULATION  WORKLOAD 

W=HWORK( IA)«PROJLN/SWORK(IAJ 
C 
C 
C       ***DETERMINE    CM,    THE    MATERIAL    COSTS    FOR    THE    OCCUPANCY    WORKLOAD 

CM=HWORK( IA)*PR0JLN*LANES*PS(IA,ITYPE,2) 
C 
C       ***INITIALIZE    THE    WORKLOAD    TO    ZERO    NOW    THAT    WORK    HAS    BEEN    COMPLETED 

IF( ID.EU.2)HW0RK( IA)=0 
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C***       GO  TO  THE  APPROPRIATE  EXPRESSWAY  TYPE  ROUTINE 

GOTO (3040, 3051 f 3060) ,KP 
C 

C***   COMPUTE  COST  FOR  THREE-FOUR  LANE  DIVIDED  MAINTENANCE  CLOSURES  FUR  YEAR 
3040. COSTS ( IA,I,1,I0)=(CREWH(2)*2*W*CU)+CM 

COSTS( IA,2f 1,ID)=(CREWH( 1) *W*2*CU) +CM 

C0STS(IA,3,l,ID)=C0STS(IA,l,i,ID) 

IF(NOTIME( 1 ) •EQ.l) COSTS ( I  A, 3 , 1 , I D) =1000000000 

GOTO  3070 
C 

C***   COMPUTE  COST  FOR  FOUR-SIX  LANE  DIVIDED  MAINTENANCE  CLOSURES  FOR  YEAR 
3051  COSTS ( IA,l,l,ID)=(CREWH(3)*3*W*CU)+CM 

COSTS( IA,2,l,ID)=( (CREWH(2)*2*W+CREWH( l)*W)*CU)+CM 

COSTS* IA,3,l,ID)=(CREWH{ 1) *W*3*CU) +CM 

C0STS(IA,4,l,I0}=C0STS(IA,l,l,ID) 

|F(N0TIME(2).EQ.1)C0STS( lA ,4, I , ID) =1000000000 

GOTO  3070 
C 

C***   COMPUTE  COST  FOR  FIVE-EIGHT  LANE  DIVIDED  MAINTENANCE  CLOSURES  FOR  YEAR 
3060  COSTS( IA,l,lf ID)=(CREWHI4)*4*W*CU)+CM 

COSTS ( IA,2,1,ID)=( (CREWH(3)*3*W+CREWH( 1)*W)»CU)+CM 

C0STS(IA,3,1,ID)=(CREWH(2)*2*W*2*CU)+CM 

COSTS < IA,4,1,I0)=(CR£WH{ 1 )*W*4*CU) +CM 

C0STS(IA,5,1,ID)=C0STS(1A,1,1,ID) 

IF(N0TIME(2).EQ.1)C0STS( 1 A, 5f 1 , I D)= 1000000000 
3070  CONTINUE 

DO  3072  IC  =  I, LANES 

IF(NOTIME(IC).EQ.0)G0TO  3072 

J=LANES-IC+1 

COSTS(IA>JtltID)=1000000000 
3072  CONTINUE 

IF(NOTIME(LANES)  .EQ.l)  COSTS  (  I  A,  LANES^-l*  1 ,  ID)  =  1000000000 
C 

C***   CONVERT  THE  SIMULATION  OCCUPANCY  HOURS  TO  WORKLOAD  OCCUPANCY  HOURS 
C***   FOR  EACH  LANE  CLOSURE  FOR  THE  YEAR 

DO  3080  IH=l,24 

00  3081  IC=1, LANES 

HRS(IATlH«IC)  =  HRS(IA>IHtIC)*W4'IC 
3081  CONTINUE 
3080  CONTINUE 
3010  CONTINUE 

RETURN 

END 
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c 

^_  ^r  ^r  ^^  ^r  'r  V'  T*  "r  ^  ^  ^r  *r  t  "  ^n  T^  ^r  n(~  ^n  ^^  -^  ^  ^n  V  ^n  ^*  ■T*  t  ^p  ^  "^  ^  ^r  ^- 

C***«******4=****«*«  SUBROUTINE   MUTOR  *«*«*:<c*«******4:c 

{^**«!{c«*<c***«***««««  PROGRAM  'EAROMAR*  «***jJc*«*«««««««q 

C«*«««5it;Jc**j(^***«***«:«c*i{e«*:Jc«***){c  +  **«5;t«jjc:)c****:Jc*«#*j(c****  *«**««  ********** 
(^*  **********  ******#:{e){s***>!t«  «***«#«:)£  **********************************  *Q 

c 

SUBROUTINE  MOTOR 

INTEGER  C0STS(7,5,8,^J 

COMMON  ARHUt  CAP(5)f  COSTSf 

1  CWT,  [}V0L(24),        HV0L(24),         ID, 

2  IH0UR(24,7),     ITYPE,  lYj  KP, 

3.  LANES,  MI,  MO,  NYEARS, 

4  0C0STS(65,2) ,  PATCHF(  1000 ) ,  PATCHP ( 1000) ,  PROJLN, 

5  RLOC(IOOO),  SIM(7,5),  SP(5,11),  SPEE00124}, 

6  SPEEUN(24),  SPLIT(2),  SW0RK(7),  TRUCKS(2), 

7  VGLUME(2),  VTRATEt 5,40) ,  Z0NtL(7,4) 
COMMON/ASSUME/  ALIGN13,6),  AACOST,  CUMVOT, 

1  0ET0UR(7),  DLIFt,  FUEL(2),  HRS(7,24,4), 

2  HW0RK(7),  lUIR,  INC,  IPRINT, 

3  IWT,  JPRINT,  OCSCHL,  OCWORK, 

4  0IL(2),  0VER(12,7),  PCT ADT( 24, 7, 2 , 2) , PS ( 7 ,3 , 3) , 

5  PSIRS,  RATEI,  RLIFE,  SINDEX, 

6  SLIMIT(5),  TCMOVE,  TIRESi2),  TLEVEL(7), 

7  WALK,  WIDTH,  WEIGHT(10,3) 
DIMENSION    ACDTS(4) 

DIMENSION    ACD(7,3) 
■DIMENSION    AV0L(24) 

DIMEiMSION    CR0SS(4)  , 

DIMENSION    P0LUTE(4) 

DIMENSION  QUECST  (2) 

DIMENSION  SPEED(24) ,DELAy(24) 
C 
C   «*«ACCIDENT  EQUATIONS  INTERCEPTS  AND  COEFFICIENTS 

DATA  ACD/-4.39,-5o  75,-7.26,-6. 14,-4. 54 ,-7. 32 ,.  96 , 
2.5i,.7o,.7  7, .6  8, .59, .67,.99, 
3. 69,. 81, .95,. 85,. 73, 1.06, .95/ 

SCZONE=1.0 

PWT=WEIGHT( 1,1) 

IND£X=0 
C 

c 

C   ***MOTOREST  LEV  EL , DETERMINAT ION  UF  THE  MOTOREST  IMPACT  PERIOD 

C 

C 

C 

C   ***0£TERMINE  THE  APPLICABLE  DAYS  FOR  EACH  LANE  CLOSURE  DURATION  BY 

C   ***ACTIVITY  BY  CLOSURE  TYPE 

C 

c 
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DU  5000  IA=l,7 

IF (0VER(6, IA).EQ.O)GOTO  5000 
C 

c 

C   «**INITIALIZE  THk  FACTOR  FOR  SIGNALS  ON  DETOUR 

CYCLE=0 
C 
C   *««  INITIALIZE  THE  DETOUK  TRAFFIC  VOLUME  FACTOR 

OFACT=i 
C 

DO  5100  IC=l, LANES 
C 
C 
C   **«INIT lALlZE  ACCIDENTS 

ACDTS(IC)-=0 
C   ***INITIALIZ£  POLUTE 

POLUTE(iC)=0 
C 
C 
C   ♦*«I.MITIALIZE  THE  CROSS  OVER  FACTOR  'CROSS* 

CROSS( IC)=0 
C 
C   ***ACCUMULATE  THE  TOTAL  HOURS  OF  ROADWAY  OCCUPANCY  FOR  EACH  LANE  CLOSURE 

DO  5080  IH=1,24 
5080  CROSS(IC)=CROSS(ICJ+HRS(IA,IH,IC) 
C 
C   ***INITIAHZE  THE  CAPACITY  TO  'CAP*  PLUS  SHOULDERS  IF  AVAILABLE 

CAPACT-CAP( ICy+CAP(LANES)«0VtR(12t lA) 
C 
C       «**IF    ALL    LANES    ARE    CLOSED    A    DFTOUR    SITUTAIJN    CAN    EXIST 

IFdC.NE.LANESJGQTO    5201 
C 
C       «»«T£ST    FOR    DETOUR 

IF(0VER( 12»IA).GT.0)G0T0    5090 
C 
C       ***COMPUTE    THE    DETOUR    VOLUME    FACTOR 

DF ACT=(VOLUME{ l)+DET0UR(4J )/VOLUME( 1) 
C 
C      ***ESTABLISH    AVERAGE    DETOUR    STOPS 

CYCLE=DET0UR(6) 
C 
C   **«CAPAC1TY  OF  DETOUR 

CAPACT=D£T0URi5) 

GOTO  5201 
C 
C   **»0ETERMINE  CAPACITY  OF  SHOULDERS  FOR  ALL  LANES  CLOSED 

5090  CAPACT=CAP(LANES)*0VER(12, lA) 
C 

C   ***IN1TIALIZE  STARTING  HOUR 
5201  IBEGIN=l 
5001  CONTINUE 
C 
C   ***0ETERMINE  THE  FIRST  HOUR  OF  TRAFFIC  IMPACT 

DO  5500  IH=IBEGIN,2^ 
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IF(HRS(IA,IH,IC).NE.O)GOTO  5501 

5500  CONTINUE 
C 

C   ***GET  ANOTHER  CLOSURE 

GOTO  5100 
C 
C   ***SET  INITIAL  IMPACT  HOUR 

5501  IBEGIN=IH 
C 

C   ♦♦♦DETERMINE  IMPACT  DURATION 

DO    5510    IH=IBEGIiSI,23 

TEMP1=HRS(IA,IH, IC) 

TEMP2^HRS(IA,IH+1,IC) 
C 
C   ♦♦♦DETERMINE  IF  THERE  IS  CHANGE  IN  OCCUPANCY  DURATION 

IF(TEMP1.EQ.TEMP2JG0T0  5510 
C 
C   ♦♦♦SET  THE  DAYS  OF  IMPACT  EQUAL  TO  THE  DIFFERENCE  IN  OCCUPANCY  DURATION 

DAYS=TEMPi-TEMP2 
C 
C   ♦♦♦OCCUPANCY  DURATION  MUST  BE  POSITIVE 

IF(DAYS.LT.O)DAYS=TEMPl 
C 
C   ♦**SET  THE  LAST  HOUR  OF  OCCUPANCY 

IEND=IH 

GOTO  5511 

5510  CONTINUE 
C 

C   ♦♦♦SET  THE  DAYS  OF  IMPACT  FOR  FINAL  HOUR 

DAYS=TEMP2 

IF(DAYS.EQ.0)G0T0    5001 
C 
C      ♦♦♦SET    THE    END    OF    OCCUPANCY    AT    FINAL    HOUR 

IEND=24 
C 
C      ♦♦♦INITIALIZE    THE    QUEUE    AND    THE    FIRST    DELAY    TIME    TO    ZERO 

5511  QUEUE=0 
TIME1=0 

C 
C 
C   ♦♦♦DETERMINE  THE  CLOSURE  CATEGORY   SUBSCRIPT 

J=IC 
C 

C   ♦♦♦WHEN  ALL  LANES  ARE  CLOSED  AND  SHOULDERS  ARE  AVAILABLE 
C   ♦♦♦USE  THE  SPEED  CURVE  DETERMINED  FOR  ONE  LANE  OPEN  TO  MOTOREST 

IF( I C.EQ. LANES. AND. OVER! 12, 1  A) .GT.O ) J=LANES-1 

FACTl=l 
C 
C   ♦♦♦DETERMINE  THE  VOLUME, DELAY  AND  SPEED  FOR  EACH  HOUR  OF  IMPACT 

DO    5520    IH=I6EGIN, lEND 
C 
C       ♦♦♦DECREASE    THE    OCCUPANCY    ARRAY    BY    THE    DAYS    USED    DURING    THE    IMPACT    PERIOD 

HRS( IA,iH,IC)=HRS( IA,IH, IC)-DAYS 
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C   ***MODIFY  THE  CAPACITY  FOP  COMMERCIAL  TRAFFIC  VOLUME 

5521  FCAP=(1-PCTADT( IHt 6, 10, 1 ) ) *CAPAC T 
C 
C   ***DfcTeRMINE  THE  VOLUME  WHICH  MUST  BE  HANDLED  DURING  THE  HOUR 

AVOL{ IH)=HVOL( IH )*DFACT+gU£UE 
C 
C   *«*ESTABLISH  THE  VOLUME  WHICH  WILL  BE  HANDLED  DURING  THE  HOUR 

IFUVOL(  IH).GT.FCAP)AVOL(  IH)=FCAP 
C 
C   ***HOLD  ANY  EXCESS  VOLUME  IN  A  QUEUE 

QUEUe=HVOL(IH)*OFACT-FCAP+QUEUE 
C 
C   ***THE  QUEUE  CANNOT  BE  LESS  THAN  ZERO 

IF ( QUEUE. LT.O)QU£UE=0 
C 
C   ««*DETERMIN£  THE  DELAY  TO  THE  LAST  VEHICLE  WHICH  WILL  PASS  DURING  THE  HOUR 

TIME2=QU£UE/(HV0L( IH)*DFACT) 
C 
C   ***ESTA8LISH  AN  AVERAGE  DELAY  FOR  ALL  VEHICLES  WHICH  WILL  PASS  IN  THE  HOUR 

DELAY!  IH)  =  (TIMEi*-TIME2)/2*FACTi 
C 
C   ♦**R£S£T  THE  DELAY  TO  BE  ASSOCIATED  WITH  FIRST  VEHICLE  IN  HOUR 

TIMEi=TIME2 
C 
C      ***CUMPUT£    VOLUME-CAPACITY    RATIO 

VC=AVOL{ IH)/FCAP 
C 
C      **«D£T£RMINE    SPEED    MATRIC    SUBSCRIPT 

I=<VC+.15)*10. 
C 
C   *«*DETERMIN£  THE  SPEED  OF  VEHICLES  PASSING  THROUGH  THE  TRAFFIC  CONTROL  ZONE 

SPEED{IH)=SP(J,I) 
5520  CONTINUE 

IF(QUEUE.EQ,0)GOTO  5530 

IF( IH.tQ,24)G0T0    5530 
C 
C       ***1NCREMENT    THE    HOURS    BEYOND    THE    OCCUPANCY    PERIOD    TO    ACCOMODATE    ANY    QUEUE 

IH=1H<-1 
C 
C      ***R£SET    THE    CAPACITY    TO    NORMAL 

CAPACT=CAP(LANES+I) 

IF(QUEUE+HVOL(IH}.LT.CAPACT)FACTI=QUEUE/CAPACT 
C 
C   *#*SET  J  EQUAL  NORMAL  SPEED  CURVE 

J=LANES+1 
C 
C       ***  INCREMENT    THE    IMPACT    PERIOD 

IENO=ieND+l 

GOTO    5521 
5530    CONTINUE 
C 
C 

C  SUBROUTINE    VOCOST 

C 


233 


c 

C   ***ACCUMULATE  OPERATION  COSTS  FOR  THE  IMPACT  PERIOD 

ZONE=ZONEL(IA, IC) 

DO    6000    IH=IBEGIN, lEND 
C 
C       ♦♦♦INITIALIZE    TEMPORARY    VARIABLE    TEMP3    TO    ZERO    AND    POSITTON    INDEX    TO    ZERO 

INDEX=0 
C 
C   ♦♦♦ROUND  NORMAL  SPEED  TO  INTEGER  VALUE 

I=SP££DN(IH}+.5 
C 
C   ♦♦♦DETERMINE  POLUTION  FACTOR  FOR  FREEWAY  SPEED  NORMAL 

P=SPEEDN(IHj 

PV=.39+(EXP( l.l9  3-.032*P)+.ll^(EXP(0.957-.026+P) )J 
C 
C   ♦♦♦DETERMINE  NORMAL  PASSENGER  CAR  OPERATION  COSTS  FOR  THE  HOUR 

TEMPl=0C0STS(I,l)^HV0L(IH)^(l-PCTADT(Iri,6,ID,ii) 
C 
C   ♦♦♦DETERMINE  NORMAL  COMMERCIAL  VEHICLE  COSTS  FOR  THE  HOUR 

TEMP2=OCOSTS(I,2)^HVOL(IH)^PCTADT( IH,6,ID,i) 
C 
C   ♦♦♦HOLD  NORMAL  OPERATION  COST  FOR  HOUR 

QUECST(  l)  =  TEMPH-TEMP2 
C 
C   ♦♦♦TEST  TO  DETERMINE  IF  DETOUR  CLOSURE  IS  BEING  PROCESSED 

IF(IC.N£.LANES)GOTO  6002 
C 

IFtOVER(i2,IAJ.NE.0)GOTO  6002 
C 
C   ♦♦♦ROUND  DETOUR  SPEED  TO  INTEGER  VALUE 

Il=SPEEDD(IH)+.5 

C  J 

C      ♦♦♦DETERMINE    POLUTION    FACTOR    FOR      DETOUR   NORMAL  1 

P=SPEE0D{1H)  ^ 

PD=.89^(EXP( i.l93-.032^P)+.Il^(EXP(0.957-.026^P))) 
C 
C       ♦♦♦DETERMINE    NORMAL    PASSENGER    CAR    OPERATION    COSTS    IN    DETOUR    FOR    THE    HOUR 

TEMP3=0C0STS(  UtD^DVOLI  IH  )♦  ( 1-PCTADT(  IH,6,ID,I)  ) 
C 
C      ♦♦♦DETERMINE    NORMAL    COMMERCIAL    VEHICLE    COSTS    IN    DETOUR    FOR    THE    HOUR 

TfcMP4=0C0STS(Il,2)+DV0L( IH )^PCTADT ( I H, 6,  ID,1) 
C 
C       ♦♦♦COMBINE    VEHICLES    AND    DETERMINE    THEIR    COSTS    THROUGH    DETOUR 

TEMP3=(TEMP3+TEMP4)+D£T0UR(2)/SPEEDD(  IH) 

TEMP 1=(TEMP1+TEMP2)^0E TOUR (IJ/SPEEDN(IH)+TEMP3 

TEMP1=(T£MP1+TEMP2)+Z0NEL(IA,IC)/SPEEDN( IHJ+TEMP3 

Z0NE=DET0UR(2) 

GOTO    6003 
C 
C      ♦♦♦COMBINE    VEHICLES    AND    DETERMINE    THEIR    COSTS    THROUGH    TRAFFIC    CONTROL    ZONE 

6002  T£MPl=(TEMPI+TEMP2)^Z0NEL( I A, IC ) /SPEEDNl  IH) 
C 
C      ♦♦♦ROUND    SPEED    THROUGH    TRAFFIC    CONTROL    ZONE    TO    INTEGER    VALUE 

6003  J=SPEE0(IH)*-5 
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C  . ***OETERMINE  POLUTION  FACTOR  FOR   INFLUENCE  ZONE 

P=SPEEO( IH) 

PR=.»9*(EXP( 1.193-.032*P)*.ll*<EXP(0.957-.026*P) )) 
C 
C   ***HOURLy  PASSENGER  CAR  OPERATION  COSTS  THROUGH  THE  TRAFFIC  CONTROL  ZONE 

TEMP2=0C0STS(J.1)*AV0L(IH)*( l-PCTADT( IH,6, 10, 1 ) ) 
C 
C   ***HOURLy  COMMERCIAL  VEHICLE  OPERATION  COSTS  THROUGH  THE  TRAFFIC  CONTROL  ZONE 

TEMP3=0C0STS(J,2)*AV0L(IH)*PCTA0T( IH,6,ID,1) 
C 
C   ♦♦♦COMBINE  VEHICLES  AND  DETERMINE  THEIR  COSTS  THROUGH  TRAFFIC  CONTROL  ZONE 

TEMP2= (TEMP2+TEMP3) ♦ZONE/SPEED ( I H) 
C 
C   ♦♦♦DETERMINE  SPEED  CHANGE  -  DIFFERENCE  BETWEEN  NORMAL  AND  SPEED  THROUGH  ZONE 

K=1.5^(I-J) 

IF(K.L£.l)K=l 

IFIK.GT.  nK=I 
C 
C   ♦♦♦SET  THE  SPEED  CHANGE  EQUAL  TO  INITIAL  SPEED  IF  A  QUEUE  EXI^T 

IF(OELAY{ IH) .NE.O)K=I 

S=K 
C 
C   ♦♦♦FACTl  IS  THE  TOTAL  PASSENGER  CARS  DURING  THE  HOUR 

FACTL  =  AVGL( I  Hi* ( 1-PCTADT (  I H, 6, ID, U ) ♦ iOOD 
C 
C   ♦♦♦FACT2  IS  THE  fOTAL  COMMERCIAL  VEHICLES  DURING  THE  rtUUK 

FACT2=AV0L( IH)*PCTADT{ IH,6,ID, 1)*1000 
C 

C   ♦«*FUEL  CONSUMPTION  SPEED  CHANGE  MODELS 
6005  CONTINUE 

A=-8+.0Q35*I 

B=.91+.0013^*I 

TEMP3=EXP(  A-«-B«ALQGCS)  » 

RW=CWT^^1.2/5.277 

TEMP4^TEMP3*RW 

T£MP3=TEMP3^FACT l^FUELl 1 ) 

T£MP4=T£MP4^FACT2^FUEL(2) 
C 
C      ♦♦♦COMBINE    PASSENGER   CAR    AND   COMMERCIAL    VEHICLE    COSTS-FUEL 

TEMP3=TEMP3+TEMP4 
C 
C      ♦♦♦TIRE    WEAR    SPEED    CHANGE    MODELS 

RW=-.64+.l6^CWT 

A=EXP(-4.85*-.0<»6^1) 

B=EXP(-4.7<-,04l7^IJ  * 

TEMP4={-A*B^AL0G(S) ) 

IF<TEMP4.LT.0.)TEMP4=0 

T£MP5=RW^TEMP4 

RW=-.64*.16+PWT 

TEMP4=TEMP4^FACT1^TIRES( ll^RW 

TEMP5=TEMP5^FACT2^TIR£S(2) 
C 
C   ♦♦♦COMBINE  PASSENGER  CAR  AND  COMMERCIAL  VEHICLE  COSTS-TIRES 
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TEMP4=TEMP4+TEMP5 
C 
C   ***OIL  CONSUMPTION  SPEED  CHANGE  MODELS 

RW=EXPt-i.3V7+.9  54*AL0G{CWTJ ) 

A=-20.5+.09*I 

ThMP5^eXP(A+8*AL0G(S) ) 

TEMP6  =  TEMP5*H»^ 

RW  =  £XP(-1.34  7+.9  5'+*AL0G(  PWT)  ) 

TtMP5^TEMP5*FACTi*OIL( 1)*RW 

TEMP6=TEMP6*FACT2*0IL(2) 
C 
C   *«*C0MbINt  PASSENGER  CAR  AND  COMMERCIAL  VEHICLE  COSTS-OIL 

TEMPi)=TEMP5  +  TEMP6 
C 
C   **«OPERATION  MAINTENANCE  COST  SPEED  CHAMGE  MODELS 

A=-. 298+. 00605*1 

tJ=. 3642-. 00173*1 

C=.00306-. 00 0025*1 

RW=A+8*CWT-C*CWT**2 

FACT3=A+B*PWT-C*PWT**2 

SS  =  I 

A=2.56*1.3*AL0G(SS) 

B=1.3+. 0068*1 

TEMP6=EXP(-A+B«ALaG( S) J/IOOO 

TEMP7=TEMP6*RW 

T£MP6=TEMP6*FACT l*FACT3 

TEMP7=TEMP7*FACT2 
C 
C   **-^CQM8INE  PASSENGER  CAR  AND  COMMERCIAL  VEHICLE  COSTS-MAINTENANCE 

TEMP6=(T£MP6+TEMP7J*SIN0£X 
C 
C   ***PLACE  THE  SPEED  CHANGE  COST  FOR  FUEL , T IR'ES, OIL  AND  MAINTENANCE  IN  TEMP3 

TEMP3=TEMP3+T£MP4+TEMP5+TEMP6 
C   ***HOLD  THE  SPEED  CHANGE  COSTS  FOR  USE  IF  A  QUEUE  IS  LEFT  OVER 

IF(  INDEX. EQ.0)wi  =  T£MP3/AV0L{ IHJ 
C 
C   «**TEST  TO  DETERMINE  IF  DETOUR  HAS  TRAFFIC  SIGNALS 

1F(CYCLE.EQ.0)G0T0  6010 
C 
C   ***SbT  THE  INDEX  FOR  THE  SEQUENCING  PROCEDURE 

INDEX=IND£X+1 
C 
C       ***BRANCH    TO    APPROPRIATE    SPEED    CHANGE    ROUTINE 

GOTO (6006,60  07) , INDEX 

GOTO  6010 
C 
C   **«ACCUMULATE  SPEED  CHANGE  COST  DETERMINE  FOR  FREEWAY  TO  DETOUR 

6006  COSTS! IA,IC,2,I0)=C0STS(.IA,IC,2, ID)+TEMP3*DAYS 
C 
C   <c**SET  SPEED  CHANGE  AND  INITIAL  SPEED  FOR  NORMAL  OPERATION  ON  DETOUR 

S=SPEED0(IHJ 

I=SPEEDD(IHJ 

GOTO  o005 
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c 

C   *«*ACCUMULArE  THE  SPEED  CHANGE  COSTS  NORMALLY  INCURRED  ON  DETOUR  ROUTE 

6007  COSTS(lA,ICf 2tI0)=COSTS( IA,ICt2, I D)-TEMP3*DAYS*DV0L( IH)/AVOL(IH) 
C 
C   ***SET  SPEED  CHANGE  AND  INITIAL  SPEED  FOR  DETOUR  OPERATION  ON  DETOUR 

S=SPEED( IH) 

I=SPeEO( IH) 

GOTO    6005 
6010    CONTINUE 
C 
C       ***DETERMINt    AVERAGE    OPERATING    SPEED    IN    QUEUE 

K=(SPEED(IH)+.5)/2. 
C 
C       *#«DdTERMINE    PASSENGER    CAR    DELAY    COST    FOR    THE    HOUR 

TEMP4=FACTl*0C0STS(Ktl)/1000 
C 
C      ***DETERM1NE    COMMERCIAL    VEHICLE    DELAY    COSTS    FOR    THE    HOUR 

TEMP5=FACT2*0CUSTS(K,2)/1000 
C 
C       ***COMBIN£    PASSENGER    CAR    AND    COMMERCIAL    VEHICLE    DELAY    COSTS 

QU£CST(2)=TEMP4+TEMP5 
C       ***DET£RMINE    THE    LENGTH    OF    THE    QUEUE 

DIST=DELAY(lH)*SP£E0(IH)/2 
C 
C 
C       ***DtTERMINE    NORMAL    COSTS    IN    QUEUE    ZONE 

QUECSTMJ=QUECST(1)*DIST/SPEEDN(IH) 
C 
C       ***DETERMINE    OPERATION    COSTS    FOR    VEHICLES    WHILF     IN    QUEUE 

QUECST(2)  =  QUECST(2)*DELAY{  IHJ 
C 
C      ***DETERMIN£    NET    OPERATION    COSTS    IN    QUEUE 

TEMP4=QUECST(2)-QUECST(1) 
C 
C       *«<cDET£RMINE    POLUTION    FACTOR    FOR    QUEUE 

P=SPEhD( IH)/2 

PQ=. 89*1  EXP ( 1.19  3-.032*P)  +  .11*(EXP(0.957-.026*P) )) 
C 
C   ***COMPUTE  THE  TOTAL  OPERATION  COST  FOR  THE  HOUR 

TEMP1=(TEMP2+TEMP3+T£MP4-TEMP1)*DAYS 
C 
C       ***ACCUMULATE    OPERATION    COSTS 

C0STS(IA,IC,2,ID)=C0STS{ IA,IC,2, ID)+TEMP1 
C 
C 

C      SUBROUTINE  POLUTE 
C 
C 
C   **«TEST  TO  DETERMINE  IF  ALL  LANES  ARE  CLOSED 

IF(IC.NE.LANES)GOTO  6020 
C 
C   ***TEST  TO  DETERMINE  IF    ANY  SHOULDERS  ARE  AVAILABLE 

IFIOVERI 12,IA}.GT.O)GOTO  6020 
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C   ***0ETERMIN£  DAYS  OF  POLUTION  FOR  DETOUR  CONDITION 

C 

C       ***DETERMINE    PERCENTAGE    SPLIT    BETWEEN    FREEWAY    AND    DETOUR    NORMAL 

FACT1=HV0L( IH)/(HVOL{IH)+OVOL(IH) ) 
C 
C      ***DETERMINE    FREEWAY    DETOUR    EQUIVALENT    VEHICLE    MILES 

T£MP1=(PR/PV-I)*AV0L(IH)*FACT1*DET0UR(1J 
C 
C      ***DET£RMIN£    EXTRA    VEHILCE    MILES    ADDED    BY    DETOUR 

TEMP2=(PR/PV)*AV0L(IH)*FACTI*(D£T0UR(2)-DET0UR(l)) 
C 
C      **DETERMIN£    FREEWAY    EQUIVALENT    NORMAL    DETOUR    VEHICLE    MILES 

TEMP3=(PR/PD-1)*AV0L(IH)*( l-FACTl ) *OETOUR { 2J 

T£MP3=PV/PD*TEMP3 
C 
C      ♦♦♦TOTAL    THE    VEHICLE    MILES 

TEMPl=TEMPH-T£MP2+TEMP3 

GOTO  6030 
C 
C   ♦♦♦NON  DETOUR  SITUATION 

6020  CONTINUE 
C 
C   ♦♦♦DETERMINE  EQUIVALENT  NORMAL  FREEWAY  VEHICLE  MILES 

TEMPI=(PR/PV-1)^AV0L(IH)^Z0NE 
6030  CONTINUE 
C 
C   ♦♦♦DETERMINE  NORMAL  FREEWAY  EQUIVALENT  VEHICLE  MILES  FOR  QUEUE 

TEMP2=(PQ/PV-1)^AV0L(IH)^DIST 
C 
C   ♦♦♦TOTAL  THE  VEHICLE  MILES 

T£MP1=TEMP1+TEMP2 
C 
C   ♦♦♦ACCUMULATE  VEHICLE  MILES  OF  POLUTIOI, 

POLUTE(IC>=POLUTEUC  J  +  TEMPi^OAYS 
6000  CONTINUE 

IF'QUEUE.EQ.OJGOTO  6040 
C 
C   v**AOJUST  POLUTION  DAYS  TO  INCLUDE  VEHICLES  LEFT  IN  THE  QUEUE 

!^OLLJTE(IC)=POLUTEl  IC  )  +  (  PQ/PV-1 )  ♦QUEUE^DI  ST 
C 

C   ♦♦♦MAKE  ADJUSTMENT  IN  OPERATION  COSTS  FOR  ANY  VEHICLE  LEFT  IN  QUEUE 
C 
C   ♦♦♦GET  THE  NORMAL  SPEED  OF  VEHICLES  ON  THE  FREEWAY 

I=SPE£DN(24)*.5 
C 
C   ♦♦♦COMPUTE  THE  NORMAL  TIME  FOR  PASSING  THRU  THE  CLOSURE  ZONE 

C=ZONEL( IA,IC)/SP££DN(24) 
C 
C   ♦♦♦COMPUTE  THE  PASS.  CAR  OPERATING  COSTS  FOR  PASSING  THRU  THE  ZONE 

TEMP1=QUEUE^OCOSTS( I , i ) *  I 1-PCTADT( 24,6, IDt i ) )^C 
C 
C   ♦♦♦COMPUTE  THE  COM.  VEHICLE  OPERATING  COSTS  FOR  PASSING  THRU  THE  ZONE 

TEMP2=QUEUE^0C0STSII,2J+PCTADT{24,6,1D,1)^C 
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C   ♦♦*CUMBINE  OPERATING  COSTS,  COMPUTE  SPEED  CHANGE  COSTS,  AND  EXPAND  t3Y  DAYS 

TEMPl=(TEMPl+TEMP2+QUEUE*Ql)*0AYS 
C 
C   ***COMPUT£  THE  AVERAGE  SPEED  OF  A  VEHICLE  LEFT  IN  THE  QUEUE 

K=SP(LANES*-l,ll)/2  +  .5 
C 
C   'J'**COMPUTE  PASSENGER  CAR  OPERATING  COSTS  IN  THE  QUEUE 

TEMP3  =  vjUEUE*0C0STS(K,l)*(  l-PCT  ADT  <  24,6  ,  I  D,  1)  ) 
C 
C   ***CUMPUTE  THE  COMMERCIAL  VEHICLE  OPERATING  COSTS  IN  THE  QUEUE 

TEMP4=QUEUE*0C0STS(K,2)«PCTADT(24,6, ID,1) 
C 
C   ***COMBINE  COMMERCIAL&PASSENGER  CAR  QUEUE  COSTS  AND  EXPAND  BY  DELAY  AND  DAYS 

TEMP3=(TEMP3+TEMP4)*aELAY(24J*DAYS 
C 
C   **«ADJUST  OPERATING  COSTS  FOR  VEHICLES  LEFT  IN  THE  QUEUE 

COSTS ( IA,IC,2,I0)=C0STS( IA,IC,2, I Dj+TEMP 1+TEMP3 
6040  CONTINUE 
C 
C 

C      SUBROUTINE  TIME 
C 
C 
C   ***INITIALIZE  DETOUR  PARAMETERS  TO  ZERO 

FACT2=0 

TEMP2=0 

TIM£LD=0 

DO  6100  IH=IBEGIN, lENO 
C 
C   ***THE  WEIGHTED  VALUE  OF  COMMERCIAL  TIME  IS  TEMPI 

TEMP1=C0MV0T*PCTADT( I H, 6, ID, 1) 
C 
C       ♦*«COMPUTE    AVERAGE    SPEED    IN    SPEED    CHANGE    ZONE 

TEMP3=.25*SPEEDN(IH)+.75*SPEED( IH) 
C 
C   *«*COMPUTE  TIME  LOST  IN  SPEED  CHANGE  ZONE 

TEMP3=(SCZONE/TEMP3-SCZONE/SPEEDN( IH) )*2 
C 
C   «««IF  A  QUEUE  EXISTS  COMPUTE  TIME  LOST  IN  SPEED  CHANGES 

IF (DELAY ( IH) .Nt . 0) TEMP3= 1.67*SCZ0NE/ SPEEDNI IH) 
C 

C   ***BYPASS  THE  COMPUTATION  OF  LOSS  TIME  FOR  DETOUR  UNLESS  ALL  LANES  ARE  CLOSED 
C   ♦**AND  THE  SHOULDERS  ARE  NOT  AVAILABLE  TO  TRAFFIC 

1F( IC.NE.LANES)GOTO  6110 

IF(OVER{ 12,IA).GT.0)G0T0    6110 
C 

C       ***TIMEL    IS     THE    TIME    LOST    BY    A    MOTORIST    WHO    NORMALLY    TRAVELS    THE    FREtJAY    AND 
C       ♦**IS    FORCED    TO    TRAVEL    THE    DETOUR    ROUTE 

TIMEL=DET0UK(2)/SPEED(  IH)*-DE  TOUR  (  1 ) /SPEEDNI  IHJ  +  OELAYI  I  H) +TEMP3 
C 
C       ***COMPUTE    AVERAGE    SPEED    IN    SPEED    CHANGE    ZONE 

TEMP4=.2  5*SPEED0{IH)<-.75*SPEED(IH) 
C 
C   ***COMPUTE  TIME  LOST  IN  SPEED  CHANGE  ZONE 
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TEMP4=(SCZ0NE/TEMP4-SCZ0NE/SPeEDD( IH) )*2 
C 
C       ***IF    A    QUEUE    EXISTS    COMPUTE    TIME    LOST    IiN    SPEED    CHANGES 

IF ( DELAY ( IH) .NE. 0) TEMP4= 1.67*SCZ0N£/SPEEDD( IH) 
C 
C       «**TiMELD    IS    THE    TIME    LOST    BY    A    MOTORIST    WHO    NORMALLY    TRAVELS    THE    DETOUR 

T1MELD=0ET0UR(2)/SPEED( I H)-DETOUR ( 2)/SPE EDD( IH ) *OELA Y{ IH )+TEMP4 
C 

C       ***FACT1     IS    THE    RATIO    OF    THE    NORMAL    FREEWAY    VOLUME    TO    THE    TOTAL    VOLUME    ON    THE 
C       ***Dt:TOUR    ROUTE 

FACT1  =  HVOL(IH)/(HVOLCIH)+DVOLI  IH) ) 
C 

C   *««FACT2  IS  THE  RATIO  OF  THE  NORMAL  VOLUME  ON  THE  DETOUR  ROUTE  TO  THE  TOTAL 
C   ***VOLUME  ON  THE  DETOUR  ROUTE 

FACT2=DV0L(  I H) / ( HVOL ( IH) +DVOLi IH) ) 
C 
C   ***J  IS  THE  TIMELOSS  ON  THE  DETOUR  ROUTE  IN  MINUTES  TO  THE  NEAREST  MINUTE 

J=A8S(TIMEL0)*60+.5 

IF{J.EQ.0)GUT0  6102 

IF{J.GT.40) J^40 
C 
C   ***ACCUMULATE  THE  WEIGHTED  VALUES  OF  TIME  LOSS  FOR  ALL  TRIP  PURPOSES 

TEMP2=TEMP1 

DO  6101  IT=1,5 

TEMP2=TEMP2+VTRATE(IT,J)*PCTADT( IH,IT,IO,l) 

6101  CONTINUE 
C 

C   ***COMPUTE  THE  VALUE  OF  TIME  LOST  TO  DETOUR  ROUTE  MOTORISTS 
TEMP2=TEMP2*TIMELD 
GOTO  6120 

6102  CONTINUE 
TEMP2=0 
GOTO  6120 

C 

C       ***COMPUTE    THE    TIME    LOSS    UN    THE    FREEWAY    FOR    A   NONDETOUR    SITUATION 
6  110    TIM£L=ZONEL( lA , IC)/SP££0( IH)-ZONtL( I  A, IC ) /SPEEDN ( IHI  +  DELAYC  IHJ 

TIMEL=TIM£L+TEMP3 
C 
C   ***SET  THE  RATIO  OF  THE  FREEWAY  NORMAL  VOLUME  TO  THE  TOTAL  VOLUME  EQUAL  TO  1 

FACTi=l 
C 
C   **«I  IS  THE  TIME  LOST  TO  A  FREEWAY  MOTORIST  IN  MINUTES  TO  THE  NEAREST  MINUTE 

6120  CONTINUE 
I=ABS(TIMEL)*60+.5 
IF(I.EQ.0)GUT0  6100 
IF(I .GT. 40)1=40 

C 

C   ***ACCUMULATE  THE  WEIGHTED  VALUES  OF  TIME  LOST 

DO  6121  IT=1,5 

TEMPI=TEMP1+VTRATE(IT,I)*PCTADT{ IH,IT, ID,l) 

6121  CONTINUE 
C 

C       ***COMPUTE    THE    VALUE    OF    TIME    LOST    TO    FREEWAY    MOTORISTS 
TEMP1=TEMP1*TIMEL 
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c 

C       ***COMPUTE    THE    AMOUNT    OF    TIME    LOST    BY    ALL    MOTORISTS    IN    HOURS 
COSTS( IA,IC,6,I0)=C0STS( IA,1C,6, ID) +AVOL ( IH) *DAYS*1000* 
X(TIM£L*FACTi+TIMELD*FACT2) 
C 

c 

C   ***COMPUTE  THE  VALUE  OF  TIME  LOST  FOR  ALL  MOTORISTS 

COSTS ( IA,ICt5f IU)=C0STS(lA,IC,5f ID)+AVOL(IH)*OAYS*I0OO* 
X(TEMPI*FACT1+TEMP2*FACT2) 
6100    CONTINUE 

IFIQUEUE.EQ.OGOTO    SI'tO 
C 
C       ***MAKE    ADJUSTMENT    TO    TIME    LOSS    AND    TIME    COST    FOR    VEHICLES    LEFT    IN    QUEUE 

TEMP2=C0MV0T*PCTAUT( 24,6 , ID, 1 J 

TEMPl=UUEUE/CAP{LANES-»-i)*.5 

I  =  TEMPl*60-»--5 

IFd.EQ. 0)1=1 

IFd.GT. 40)1=40 

00    6130    IT=l,5 

TEMP2=TEMP2+VTRATE{ IT, I ) *PCT A0T( 24, IT, 10, 1 ) 
6130   CONTINUE 

C0STS(IA,IC,5tID)  =  C0STS(  I A, IC, 5, 1  0) +TEMP 2*TEMP l«QU£UE*iOOO*OAYS 

C0STS<IA,IC,6,ID)=C0STS(  I  A,  I  C,  6,  I  D)  *-TEMP  1*QU£UE*  1000*DAYS 
6140   CONTINUE 
C 
C 

C  SUBROUTINE    ACCID 

C 
C 
C    ***INITIALIZE    NORMAL    ACCIDENTS    ON    THE    DETOUR    TO    ZERO 

TEMP  3=0 
C 
C      ***    SET    TEMP6    EQUAL    TO    THE    AVERAGE    ZONE    LENGTH 

TEMP6=Z0NEL( IA,IC) 
C 

C      ***IF    THE    TRAFFIC    IS    DETOURED    THE    ZONE    LENGTH    IS    THE    DISTANCE 
C      *»*BETWEEN    INTERCHANGES 

IF(IC.EQ.LAN£S.ANO.OVER( 12, I  A) .£Q. 0) TEMP6=DE TOUR ( I ) 
C 
C       ***COMPUTE       THE    NORMAL    ANNUAL    ACCIDENTS    UN    THE    FREEWAY 

TEMP 1=ACD( LANES, 1 ) +ACD(L ANES,2 ) *ALOG{ TEMP6) ♦ACO( LANES, 3) 
X*ALOG( VOLUME (1)*2000*ABS( I D-l-SPL I T { 1) /lOO) ) 
C 
C      ***T£ST    FOR    DETOUR 

IFtlC. EQ. LANES. AND. OV£R( 12, IA).EQ.0)G0T0    6210 
C 
C      ***GET    SUBSCRIPT    FOR    ACCIDENT    EQUATION    COEFICIENTS 

I=LANES-IC 
C 
C       ***SET    FACTOR    FOR    MORE    THAN    ONE    SHOULDER    TO    1 

FACT3=1 
C 
C      ***IF       ALL    LANES    ARE    CLOSED    SET    SHOULDER    FACTOR    EQUAL    TO    NUMBER    OF    SHOULDERS 

IF  (I  .EQ.0)FACT3=0VERa2,IA) 
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c 

C   *««IF  ALL  LANES  ARE  CLOSED  SET  ACCIDENTS  EQUATION  COEFICIENTS  SUBSCRIPT  TO  I 

IFil .EQ.O) 1=1 
C 
C   **«COMPUTE  THE  ANNUAL  ACCIDENTS  FOR  THE  CLOSURE  SITUATION 

T£MP2=ACD( I,li+AC0{I,2)*AL0G(ZGNEL( I  A,  IC))+ACD{  1,3) 
X*ALOG( (V0LUME( l)*2000*ABS( I D-l-SPL I T( i } / 100) ) /FACT 3) 
C   ***  SKIP  THE  COMPUTATION  UF  ACCIDENTS  ON  THE  DETOUR 

GOTO  6220 
C 

C   ***  SET  THE  SUBSCRIPT  FOR  THE  ACCIDENTS  EQUATION  COEFFICIENTS  FOR  THE  DETOUR 
6210  I=4+DET0UR(7) 

IF(I .GT. J) 1=7 
C 
C   ***COMPUTE  THE  ANNUAL  ACCIDENTS  FUR  THE  DETOUR  ROUTE  WITH  FREEWAY  TRAFFIC 

TEMP2=ACD( I, 1)+ACD(I,2)«AL0GID£T0UR(2) )+ACO( 1,3) 
X*ALOG( ( DETOUR (4)+ VOLUME ( i) )«2000*ABS( I D- 1-SPLI T ( 1 ) / 100) ) 
C 
C   ***COMPUTE  THE  NORMAL  ANNUAL  ACCIDENTS  FOR  THE  DETOUR 

TEMP3=ACD( I, 1)+ACD{I , 2 ) *ALOG (DETOUR ( 2) )+ACD{ 1,3) 
X*ALOG(DETOUR(4)«iOU0*ABS( ID-1-SPLIT( 1)/100)) 

TEMP3=EXP(TEMP3)/2 
C 
C   ***COMPUTE  THE  ANNUAL  INCREASE  IN  ACCIDENTS  CAUSED  BY  THE  CLOSURE 

622  0  TEMPl=£XP(TEMP2)/2-EXP(TEMPl)/2-TEMP3 
C 
C   ***INCREASED  ACCIDENTS  MAY  NOT  BE  NEGATIVE 

IF { TEMPI. LT.O) TEMP  1=0 
C 

C       «**    INCREASED    ANNUAL    ACCIDENTS    IS    FACTORED    BY    THE    PORTION    OF    YEAR 
C      ^♦*WH1CH      THE    CLOSURE    WAS    IN    EFFECT 

TEMPb=TEMPl/36i> 

DO    6230    IH=IBE&IN, lEND 
C 
C       *««eONVERT    ACCIDENTS/DAY    TO    ACCIDENTS    /HOUR 

TEMPl=TEMP5*PCTADT{ IH,7, ID,1)*DAYS 
C 
C       ««*SET     INCREASED    ACCIDENTS    OF    DETOUR    ROUTE    TRAFFIC    TO    ZERO 

TEMP 3=0 
C 
C   ***COMPUTE  DECELERATION  RATE  OF  FREEWAY  MOTORIST 

FACT1=(SPEEDN( IH )**2+SPE£D { I H) **2) /( 2*SC ZONE) 
C 
C   «**IF  A  DELAY  EXISTS  DECELERATE  TO  ZERO 

IF (DEL A Y{  IH).GT.0)FACT1=SPEEDN(IH)**2/(2*SCZ0NE) 
C 
C   «**  COMPUTE  THE  INCREASE  ACCIDENT  RATE  DUE  TO  DECELERATION 

T£MP2=-1.32+-002*FACT1 
C   ♦♦♦INCREASED  ACCIDENT  MAY  NUT  BE  NEGATIVE 

IF(TEMP2.LT.0)T£MP2=0 
C 
C   **♦  CONVERT  ACCIDENT  RATE  TO  ACCIDENTS 

T£MP2=TEMP2/1000*HV0L( IH) ♦SC ZONE *D AYS 
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C   ***IF  ALL  LANES  ARE  CLOSED  AND  NO  SHOULDERS  ARE  OPEN  SKIP  DETOUR 

IFdC.NE.LANESJGOTO    6231 

IF(OVER( 12,IA).GT.0)G0T0    6231 
C 
C       ***CUMPUTE    THE    DECELERATION    RATE    OF    TRAFFIC    ON    THE    DETOUR 

FACT2=lSPE£D0nH)*#2-SPEED(IH)**2)/(2*SCZ0NE) 
C 
C       «**IF    A    DELAY    EXISTS    DECELERATE    TO    ZERO 

IF ( DELAY ( IH).GT.0)FACT2=SP£EDD(IHJ**2/(2*SCZGNE) 
C 
C       ***COMPUTE    THE    ACCIDENT    RATE    DUE    TO    DECELERATION    ON    DETOUR 

TEMP3=-1.3  2+.002*FACr2 
C 
C      ***ACCIDENT    RATE    MAY    NOT    BE    NEGATIVE 

IF(TEMP3.LT.0)TEMP3=0 
C 
C       ***CONV£RT    ACCIDENT    RATE    TO    ACCIDENTS 

TEMP3=TEMP3/1000«DVOL{ IH J *SC ZONE*DAYS 
C 
C       ***CUMPUTE    THE    TOTAL    INCREASED    ACCIDENTS 

6231  T£MP4=T£MP1+TEMP2+TEMP3 
C 
C   ***ACCUMULATE  ACCIDENTS  FOR  YEAR 

ACDTSt ICJ=ACDTS{ IC)+TEMP4 
6230    CONTINUE 

GOTO    5001 
5100    CONTINUE 

DJ    6050    IC=ltLAN£S 
C 

C       **«CONVERT    ACCIDENTS    FOR    YEAR    TO    COSTS    AND    HOLD    BY    ACTIVITY 
C       **«AND    CLOSURE 

C0STS(IA,IC,3,ID)=C0STS(IA,IC,3,ID)-i-ACDTS(IC)*AAC0ST 
C 
C       *«*HOLU    POLUTION    DAYS 

COSTS(IA,ICt7tID)=P0LUTE(IC) 
6050    CONTINUE 
C 
C       **«BRANCH    TO    APPROPRIATE    FREEWAY    TYPE 

G0TG(5910,5920,5930) ,KP 
C 

C       **«FOUR    LANE    DIVIDED 
C 

5910    CONTINUE 
C 
C       ***ACCUMULATE    COSTS    FOR    ALL    MOTOR    PARAMETERS 

DO    5911    J=2,7 

TEMP1=C0STS( IA,l,J,ID) 
C 
C       ***CLQSE    BOTH    LANES    AND    DETOUR    TRAFFIC 

CGSTS(IA,1,J,IDI=C0STS{IA,2, J,ID) 
C 
C       ***CLOSt    ONE    LANE    AT    A    TIME 

C0STS(IA,2,J,ID)=TEMP1*2 
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C       ***TEST    FOR    COMPUTABLt    CRUSSOVER 

IF(CROSS(l).fcU.OiGDTO  5000 
C 
C   ***CLOSE  BOTH  LANES  AND  CROSS  OVER  TO  ONE  LANE  OPEN 

C0STS<IA,3,J,ID)=TEMPl*(CROSS(2)/CR0SS(l))*2 
5911  CONTINUE 

GOTO  5000 
C 

C   ***SIX  LANE  DIVIDED 
C 

5920  CONTINUE 
C 

C   ***ACCUMULATE  COSTS  FOR  ALL  MOTOR  PARAMETERS 

DO  5921  J=2,7 

TEMPl=COSTS( IA,1,J»ID) 

T£MP2=CGSTS(IA,2,J,ID) 
C 
C   ***CLOSE  ALL  THREE  LANES  AND  DETOUR  TRAFFIC 

COSTS( IA,lf JfID)=COSTS( IA,3, J,ID) 
C 
C   ***CLOSE  TWO  LANES  THEN  CLOSE  ONE  LANE 

COSTS( IA,2,J,ID)=TEMP2>TEMP1 
C 
C   ***CLOSE  ONE  LANE  AT  A  TIME 

COSTS! lA  t3tJ,ID)=TEMPl*3 
C 
C   ***TEST  FOR  COMPUTABLE  CROSSOVER 

IF(CR0SS(2).EQ-0)G0T0  5000 
C 
C   ***COMPUTE  CROSS  OVER  FACTOR  FOR  ONE  LANE  CLOSED 

TEMP 3=CR0SS{ 3) /CROSS (1) 
C 
C   **«COMPUTE  CROSS  OVER  FACTOR  FOR  TWO  LANES  CLOSED 

TEMP4=CR0SS(3i/CR0SS(2) 
C 
C   **«CLOSe  ALL  THREE  LANES  AND  CROSS  OVER  TO  ONE  LANE  OPEN 

COSTS ( IA»4f Jf ID) =T EM PI* T EM P3+TEMP2*T EM P4 

5921  CONTINUE 
GOTO  5000 

C 

C   ***EIGHT  LANE  DIVIDED 

C 

5930  CONTINUE 
C 
C   ***ACCUMULATE  COSTS  FOR  ALL  MOTOR  PARAMETERS 

DO  5931  J=2,7 

T£MP1=C0STS{ IA,1,J,ID) 

TEMP2=C0STS<IA,2,J,ID) 
C 
C   ***CL0SE  ALL  FOUR  LANES  AND  DETOUR  TRAFFIC 

C0STS(IA,l,J,ID)=C0STS(IA,4, J,ID) 
C 
C   ***CL0SE  THREE  LANES  THEN  CLOSE  ONE  LANE 

COSTS! IA,2tJ,IDJ=C0STS(IA,3, J, I0)+TEMP1 


244 


-»CLOSE  TWU  LANES  AT  A  TIME 
COSTSi  IA,3tJ,IU)=TEMP2*2 

»**CLUSt  UNE  LANE  AT  A  TIME 
CUSTS( IA,4, J,10)=TEMP1*4 

♦♦♦TEST  FOR  COMPUTABLE  CROSSOVER 
IF(CR0SS(2),EQ.0}G0T0  5000 

♦♦♦CLOSE  ALL  FOUR  LANES  AND  CROSS  OVER  TO  TWO  LANES 
COSTS ( IA,5,J,ID)=TEMP2^(CK0SS(4)/CRGSS{2) ^♦2 

5931  CONTINUE 

5000  CONTINUE 
RETURN 
END 
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MO    =    3 

I 
I 

I 

02 

U    I 

H 

10    I 
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I                        03 

12    I 
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19    I 
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OPPARA 
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H 
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H 

11    I 
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-»  JPRINT  .NE. 


13    I 

19    I 

RPRINT 

I.    I 

10    I 

U    I 

« 

- 

100 

- 

I 
— >I 

1       NOTE       0 

*   *    * 

* 

»***«« 

* 

COi'^TINUE 

«   «    * 

* 

«    «    *    *    4    « 
I 
I 
I                      0 

14     I 

19     I 

YEAR 

10    I 

U    I 

I 

I    08 

* 

HALT          * 

RETURN    TO    SYSTEM 
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/       INITAL       / 


02.02 >* 


»««ENO    OF    DATA    TEST 
VARIABLE 


**«C4P4CTIES    BY 
EXPRESSWAY    TYPE    AND 
CLOSURE 


**»JESIGN    SPEED 


♦**TRAFF IC 
DISTRIBUTIONS 
BALAi'JCING    INDICES 


*«»ALLOWABLE 
OCCUPAiviCY     INTERVAL 


*«*DEFAULT    VALUES 
FOR    THE    SIMULATION 
PROCESS    FOR    THREE 
PAVEMENT     TYPES 


•♦♦TRAFFIC 

DISTRIBUTION    BETWEEN 
TRIP    PURPOSES 


»»*1NPUT  INITIAL  AND 
FINAL  ANALYSIS  YEAR 
VOLUME, AM  PEAK  SPLIT 
AND  %    T 


/    READ    FROM    DEV    / 
/MI  / 

/       VIA    FORMAT  / 

/  8  / 

/     INTO    THE    LIST    / 


->* 


I 

1       NOTE       02 

»  LIST    =    ■  • 

»  (VOLUME! J),  « 

•  SPLIT(J),  * 
«  TRUCKS! J) ,J    =  « 

•  1,2)  « 
*********** 

I 
I 

**«INPUT    ANALYSIS 
YEARS, PAVEMENT 
TYPE,  PROJECT    LENGTH 
IN    MILES,     AND    PA 

***TriICKNESS    FOR 
SURFACE, BASE    AND 
SUBGRADE 

*** 
PAVEMENT    TYPES 

***  1, 

CONCRETE 

***  2. 

BITUMINOUS 

***  3, 

COMPOSITE 

I 
I 
I  03 

/    READ    FROM    DEV    / 
/MI  / 

/       VIA    FORMAT  / 

/  9  / 

/    INTO    THE    LIST    / 


I  NOTE  0* 
*********** 

*  LIST  =  NYEARS,    » 

*  KP,  ITYPE,       * 
»   PROJLN,  THICK!,   * 

*  THICK2,     THICK3  » 
*********** 

I 
I 

I  05 
« « 

I       LANES    =    KP    t     I  I 

* * 

I 

I 

I 
***ESTABLISHMENT    OF 
THE    DEFAULT    OPTION 
FOB    WORKSITE 
SIMULATION    GIVEN 

I 

I 

I  NOTE  06 
*«««*«»*»*« 

*  BEGIN   DO   LOOP         * 

*  1050    lA    =    1,    7  « 
**«****«**« 

I 

1< 

I  NOTE  07 
*********** 
«  BEGIN  00  LOOP  * 
«  1051  J  =  1,  5  * 
*********** 

I    ■ 
>l 

1051         I  08 

« : * 

I             SIMIIA.J)     =  I 

I     SSIMI lA.lTYPE.J)        I 
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I 

I 
I 

*  09 
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»  * 

NO       *  • 

— *  END    OF    00  * 

*  LOOP?  » 


END    OF    DO 
LOOP? 


*«*ESTABL 
OPTION    FOR 


SH    OEFALUT 
CAPACITY 


NOTE       11 
*********** 

*  BEGIN    00    LOOP  * 

*  1060    J    =    1,     5  * 
*********** 

I 

10.13 >I 

I  12 


CAP(J)    = 
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* 

* 

NO 

*    END  OF  00 

*-♦ 

*    LOOP? 

* 

1 
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I 

*    * 

I 
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lYES 

10 

12 

.... 

♦♦♦INITIALIZE 
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DISTRIBUTIONS 

1000    I   NOTE 

14 

******** 

» 

*  * 

•      CONTINUE 

♦ 

*«*«**♦* 

* 

♦  ♦ 

I   NOTE 

15 

♦  *#«**** 

* 

♦  ♦ 

♦    BEGIN  00  LOOP 

♦ 
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6 

♦ 

♦  ***♦**« 

♦ 

*  * 

OIREC 
I  DENT 


I 
EST  FOR 
TIONS  1C2 
ICAL 

I 

I 

I 


CQMPU 
FO 


TED  GO  TO 
IT 


1032 
1020 
1020 
1020 
1032 
1020 


11.02  I 

10.17  I 

10.17  I 

10.17  I 

11.02  I 

10.17  I 


IF  OUTSID 

10. 16^  — 
1020 

*  *  *  ♦  * 

*  CON 

*  *  *  *  ♦ 


**       INITI 
DIRECTION 


♦  *    *    *    * 

♦  BEGIN 

♦  1030    I 

♦  ♦   ♦    ♦   ♦ 

11.01 


I 
I 

I 
E    THE    RANGE 

I 
>I 

I       NOTE       17 

****** 
TINUE  * 

•    ♦♦♦*♦ 

I 

I 

I 
ALIZE 

2 

I 

I 

I      NOTE      IB 

****** 

DO   LOOP         ♦ 
H    =     I,     24      ♦ 

****** 

I 
>I 

I  19 


I    PCTADTI1H,1T,2,1)     I 
I  =  I 

I     PCTAOT(IH.ir,l,ll     I 
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10.19- 

—  >* 

1030 

*          01 

*          * 

* 

* 

* 

* 

NO 

•          END    OF    00 

*-+ 

« 

LOOP? 

« 

* 

» 
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lYES 

*lo' 

19 

10.16»- 

—  >I 

1032 

1       NOTE 

02 

• 

•    *    * 

«    »    »    * 

* 

*    * 

* 

CONTINUE 

* 

* 

»    ♦    » 

*    »    *    * 

1 

* 

*    * 

I 

*»       INITIALIZE    FINAL 

VOLUME    DISTRIBUTIONS 

1 

1 

1       NOTE 

03 

« 

*    «    * 

*    *    «    * 

♦ 

*    * 

* 

BEGIN    DO    LOOP 

* 

« 

1031 

IH    =     I, 

2*       * 

• 

♦    »    » 

•    «    •    * 
I 

* 

«    * 

'" 



—  >I 
1 

0* 

I  PCTADTI IH,IT,1,2( 
I 

I  PCTAOTI IH,IT,1,1) 
I 

I  PCTADTI IH, IT, 2, 2) 

I 

I  PCTADTI IH, IT, 2,1) 

« 

I 
I 


END  OF  DO 
LOOP? 


*    NO 

END  OF  00  *-+ 

LOOP?  »    I 

»        »  I 

*    *  I 

♦  .... 

lYES  .  10  . 

I  .  16  . 

I  .... 


I 
I 

*«  DETERMINATION 
AN  AASHO  BASED  AN 
18  KIP  AXLES  FACT 

I 

I 


OF 
NUAL 
OR 


COMPUTED  GO  TC 
FOR   ITYPE 


I       1100 

11.08    I 

I       1101 

11.09    I 

I       1101 

11.09     I 

1 
1 

>• 

I 

IF  OUTSIDE  THE  RANGE 


1 
I 
•♦   AASHO  BASED 
ACCUMULATED  18  KIP 
AXLES  TO  1.5  PSI  AS  A 
FUNCTION  THIC 
I 

11.07 >I 

1100    I         08 


I  RHO    = 

I  .88*ITHICK1 

I  1)»»7.35 

» 

I 
I 


**   AASHO  THICKNESS 
FACTOR  FOR  BITUMINOUS 
PAVEMENTS 


11 

.07* — >« 
1101          I 

09 

1 
I 

I 

1 

THICK    = 

.*4*THICK1    ♦ 

.l',*THICK2    ♦ 

.1»THICK3 

I 
1 

*•       AASHO    6ASE0 
ACCUMULATED    18    KIP 
AXLES    TO    1.5    PSI    AS 
FUNCTION    THIC 

I 

A 
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I 

10 

I 
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2.26KTHICK    «■ 

11**8.9* 

I 
I 
1 

I 

1102         I 

11 

I 
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1 

♦  * 
• 

*  * 

1 
1105         I       NOTE       12 

CONTINUE                  * 
********* 

I 

•*       READ    TYPE    OF 
OVERRIDE    OR    END   OF 
OVERRRIOES 

12 

.07*— >I 
1200         I 

13 

/  READ  FROM  D EV  / 
/       MI        / 
/   VIA  FORMAT    / 
/        1        / 
/  INTO  THE  LIST  / 


I 


I   NOTE   1* 

•  **«*««««•* 

*  LIST  =  IP,  END    * 
*********** 

I 

I 

I 
•*   TEST  FOR  END  OF 
OVERRIDE  OATA 

I 

I 


15 


»   TRUE 

END  .ES.     *-» 

ENOVER    *    I 

*        •      I 

*    *        I 


FALSE  .  17 
.  01 


**   GO  TO  PROPER 
OVERRIDE  ROUTINE 
*»   THE  OVERRIDE 
SWITCHES  ARE 
SUMMARIZED  AS 
FOLLOWS: 

I 
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>» 

I 
**  I. 

HOURLY  VDLUME 

DISTRIBUTION  BY  TRIP 

PURPOSE 

*»  2. 

PERCENT  OF  TOTAL 

VOLUME  8Y  TRIP 

PURPOSE 

*•  3. 

DIRECTIONAL    BALANCING 

SWITCH 

*•  <>. 

PERMITTED    OC:UPANCY 

INTERVAL    BY   ACTIVITY 

»*  5.    A 

RANGE  OF  OVERRIDE 

PARAMETERS  BY 

ACTIVITY 

*•  6. 

VERTICAL  ANO 

HORZONTAL  ALIGNMENT 

»*  7. 

VEHICLE 

CLASSIFIACTION  DATA 

**  8. 

MAINTENANCE 

SIMULATION  PARAMETERS 

**  9. 

UNIT  OPERATING  COSTS 

•  »  10. 
PRINT  SWITCH 

*•  11. 

PAVEMENT  LANE  WIDTH 
«*  12. 

INCOME  LEVEL 
*•  13. 

SPEEDS  FOR  WALKING 
ANO  TRAVELING  ON 
ROADWAY  BY  MAI 
**  1*. 

TERMINAL  PSI  VALUE 
»*  15. 

DETOUR  PARAMETERS 
*•  16. 

DESIGN  LIFE 
**  17. 

ACTIVITY  STANDARD 

•  *  18. 
CLOSURE  CAPACITIES 
«*  19. 
FREEWAY    DESIGN    SPEED 

•  *  20. 
AVERAGE    ACCIDENT 
COSTS 

**  21. 

VEHICLE  OCCUPANCY 

»*  22. 

COMMERCIAL  VALUE  OF 

TIME 

**  23. 

SPEED  LIMITS 

1 

I 

I         17 


I 


COMPUTED  G3  TO 
FOR   IP 


1201 
1203 
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12.04  I 
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II. Id >« 


COMPUTED    GO    TO 
FUR       IP 
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****«   PACKET  NUMBER 


I        12^7 
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PURPOSE  DISTRIBUTION 
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1203    I 


13 
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/        MI         / 
/   VIA  FORMAT    / 
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I 
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I    READ    FROM    DEV    / 
/MI  / 

/       VIA    FORMAT  / 
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♦  ***»*«**** 
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NEW    DISTRIBUTION 

I 
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«  BEGIN    no    LOOP  * 
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1 
>I 
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I   PCTADTI I,1T,I0,   I 
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I 
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I 
I 
I 
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I 
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I 

I 
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I 

I 

I   NOTE   1* 
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I 
**   TEST  FOR  END  OF 
TRIP  PURPOSE 
DISTRIBUTIONS 
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I 

I 

I 


I 
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I 

I 

I 

**   REPLACE  OLD  WIT 
NEW  TRIP  PURPOSE 
DISTRIBUTION 

I 

I 
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*  *  «  *  « 


»  *  »  * 


»  BEGIN  DO  LOOP  • 
«    120*  I  =  1,  6    • 

I 
>I 
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I 

I 
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PURPOSE  DISTRIBUTION 
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I 

I 
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«•***       PACKET    NUMBER 


*««*«       PACKET    NUMBER 


02 


11.17 >* 

1206  I       NOTE       01 


I 

I       NOTE 

*  BEGIN    00    LOOP 

*  1207    I    =    It    9 
»»****»»*♦ 

I 

I< 

I 
**       OVERRIDE    ALLOWED 
OCCUPANCY    HOURS 

I 

I 

I 
»*   READ  ACTIVITY 
NUMBER.  START  TIME, 
FINISH  TIME 

I 


I 


03 


/  READ  FROM  OEV  / 
/        MI         / 
/   VIA  FORMAT    / 
/         2         / 
/  INTO  THE  LIST  / 


I 
I 

I   NOTE   0* 

*  LIST  =         « 
»   lINOCCtI ,J) , J  =   * 

*  1,3)  4 

I 


I 

•♦♦IF  OCCUMPANCY 
TIME  FOR  ALL 
ACTIVITIES  IS 
INPUT,  MNOCCI  1,  11  =  10' 
THE 

♦♦♦THE  DEFALT  OPTION 
IS  OVERRIDEN 

I 

I 

I 

♦    05 


INOCCd,  1) 
►   .EQ.  10 


I  TRUE 

I 

I 

I 

I 

I 

I 


I  iNOCC(ia,i) 


•♦   TEST  FOR  END  OF 
OCCUPANCY  HOURS 
OVERRIDES 

I 

I 


->♦ 
I 


>  ♦       TRUE 

INOCCII.l)  ♦-  + 

"       .EO.    0  ♦  I 

♦  ♦  I 

♦         ♦  I 


FALSE    .     U    . 
.     13    . 


♦♦       GET    NEXT 
OCCUPANCY    HOUR 
OVERRIDE 

I 

I 

I 
1207         ♦         09 


END    OF    DO 
LOOP? 


I  YES 

I 

I 

I 

I 

I 

I 
♦♦   DUMMY  READ  OF 
BLANK  CARD  FOLLOWING 
NINE  OVERRIDES 


10 


/    READ    FROM    DtV    / 
/MI  / 

/       VIA    FORMAT  / 

/  '      1  / 

/    INTO    THE    LIST    / 


I 

I      NOTE       11 

♦  ♦♦♦♦♦*♦♦♦• 

♦  LIST    =11  ♦ 

I 
I 
I 

**   GET  NEXT  TYPE  OF 
OVERRIDE 

I 


♦♦   REAO  OVER 
ACTIVITY,  AND 

♦  ♦♦SWITCHES 
OVERRIDE  PARA 

♦  ♦♦ 
CONTINQUS  CRE 
HOURS 

♦  ♦* 
LOCATION  OR  J 
SPACING 

♦♦♦ 
WORKLOAD  MODE 

♦  ♦♦ 

WORKLOAD  MODE 
ANNUAL  RATE 

♦  ♦♦ 

TRAVEL  TIME  H 

♦  ♦♦ 
MAINTENANCE  L 

♦  «♦ 

CURE  TIME  IN 

♦  ♦♦ 
TRAFFIC  CONTR 
INSTALLATION 
HOURS 

♦  ♦* 
MAXIMUM  TRAFF 
CONTROL  ZONE 
IN  MILES 

♦  ** 
VOLUME/CAPACI 
ALLOWED 

♦  ♦♦ 
MINIMUM  TRAFF 
CONTROL  LENGT 
MILES 

♦  ♦♦ 
SHOULDERS  OPE 


11.17*— >♦ 

1208         I  13 

/    READ   FROM    OEV    / 
/  MI  / 

/       VIA    FORMAT  / 

/  3  / 

/     INTO    THE    LIST    / 


TYPE, 

VALUE 

FOR 

METERS 

1. 

W  WORK 

2. 

01  NT 

3. 

L  FACTOR 

4. 
L  FIXED 

5. 

OURS 

6. 
EVEL 

7. 

HOURS 

8. 
OL 
TIME  IN 

9. 

IC 
LENGTH 

10. 
TY  RATIO 

11. 

IC 
H  IN 


I 

I       NOTE 

14 

♦ 

*««*«««* 

♦    ♦ 

♦ 

LIST    =     11,     lA, 

♦ 

♦ 

VALUE 

♦ 

♦ 

I 

I 

♦    ♦ 

*»   TEST  FOR  END  OF 
OVER  OVERRIDES 


TRUE 

♦  -■ I- 

I 

I 

I 

.  11  . 
.  13  . 


**  REPLACE  ASSUMED 
VALUE  WITH  OVERRIDE 
VALUE 

I 

I 


>♦ 

I  1 

* 
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» 
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I 

*♦   GET  NEXT  OVER 
OVERRIDE 

I 

I 
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♦••DESIGN 
ALIGNMENT, VERTICAL 
ANU    HORIZONTAL 

11.17»— >» 

1209         I       NOTE      01 

*  CONTINUE  • 
*********** 

I 

I 

I 
•♦♦REAU    ALIGNMENT 
TlTPE'+GRAOe. -GRADE, 
DEGREES', MAGNITUDE 
AND    MILEAGE 

I 

I 

I  02 

/  READ  FROM  OEV  / 
/       MI         / 
/   VIA  FORMAT    / 
/        3        / 
/  INTO  THE  LIST  / 

I 
I 

I   NOTE   03 
*********** 

*  LIST  =  II,  12,    * 

*  VALUE        » 

I 
1 

•♦♦TEST  FOR  END  OF 
OVERRIDE 

I 
I 
I 
•    0* 


TRUE 
*-  + 
'   I 

I 

I 

.  11  . 

.  13  .  . 


♦•♦REPLACE  ASSUMED 
VALUE  l^ITH  OVERRIDE 
VALUE   - 

I 

I 

I          05 
• * 

I       ALIGN! 11,121    -         I 
I  VALUE  I 

I 
I 
I 

•♦•GET  NEXT  OVERRIDE 
I 
I 
I  06 


•••READ  VEHICLE 
WEIGHT,  PERCENTAGE 
AND  COSTS,  NOTE  THAT 
FIRST  CARD 

•••MUST  BE  PASSENGER 
VEHICLES 


*****       PACKET    NUMBER 


11.17 >♦ 

1210  I 


07 


1  IWT    =    0  I 

* * 

I 
>I 

1211  I  08 

/    READ    FROM    OEV    / 
/  MI  / 

/       VIA    FORMAT  / 

/  5  / 

/    INTO    THE    LIST    / 


I 
I 

I       NOTE       09 

•  LIST   =    I2IJ),J   =      ♦ 

♦  1,3)  ♦ 

*********** 
I 


♦♦♦TEST 
OVERRIDE 

FOR  ENO  OF 

I 

♦ 
♦ 
♦ 
♦   Z(  11 

♦    10 

♦ 
* 

♦  TRUE 
•EQ.  0   •-+ 

♦  I 

11 

13 


1200 
11 


* : * 

IWT    -    IWT    +    1 


KEIGHT(IMT,1)     = 
Zlll 


MEIGHTIIWT,2) 
ZI2)/100 


KEIGHTI IHT,3)    = 
Z(3I 

<■ 

I 
I 


*****       PACKET    NUMBER 


♦♦•READ  ACTIVITY  AND 
SIMULATION  PARAMETERS 

«•*  1. 

WORKSITE  TYPE 

*••  2. 

WORKSITE  FACTOR 

♦  ••  3. 
ADO  ON  VALUE 

♦  ••  4. 
NUMBER  OF  ITERATIONS 

♦  ♦♦  5. 
RANDOM  OR  UNIFORM 
LOCATIONS 

ll.l7^-->*< ♦ 

1212  I       NOTE       12 

*********** 
*  CONTINUE  • 

*********** 

I 

I 

I  13 


/  READ  FROM  DEV  / 
/        Ml         / 
/   VIA  FORMAT    / 
/  b  / 

I    INTO  THE  LIST  / 


I       NOTE       1* 

•  ♦♦♦♦♦♦*••• 

•  LIST    =    lA,  » 

•  (Z(J) , J    =     1,5)  • 

*********** 


I 


••♦TEST  FOR 

END 

OF 

OVERRIDE 

1 

I 

♦ 

15 

♦    ♦ 

♦ 

♦ 

* 

♦ 

TRUE 

♦ 

lA  .Eg. 

0 

♦  -♦ 

♦ 

♦ 

I 

* 

♦ 

I 

♦   ♦ 

1 

♦ 

.«•  • 

IFALSE 

.  11  . 

I 

.  13  . 

NOTE       16 

♦  ♦♦♦♦♦♦♦♦♦♦ 

♦  BEGIN   DO    LOOP         ♦ 

♦  1213    I    =    I,    5         ♦ 

♦  ♦♦♦♦♦♦♦♦♦♦ 

I 

>I 

1213    I         17 
« * 

I  SIMI  IA,I)  =  Z<l)   I 

* * 

I 
I 
I 


ENO  OF  DO 
LOOP? 


♦♦♦♦♦   PACKET  NUMBER 


— 11.17^— >♦ 

1220    I         19 

/    READ    FROM    OEV    / 
/  MI  / 

/       VIA    FORMAT  / 

111 
I    INTO    THE    LIST    / 


I       N3TE       2 

♦  ♦♦♦♦♦•♦•• 

♦  LIST    =     II, 

♦  (Z(J).J    =    1,2) 

♦  ♦♦♦♦♦♦*•♦ 

I 
I 
I 
•         21 


I 
I 
I 

11    . 
13    . 


I  COMPUTED    GO    TO       I 

I  FOR       I  1  I 


I  1221 

I  1222 

I  1223 

I  122* 


l'V.23  I 

X'^.l',  I 

15.01  I 

15.02  I 


F 

1 
1 
I 
OUTSIDE 

THE 

RANGE 

l'i.22-~>I 

1221    I 

23 

I       FUEL(l)    =    Z(  1)  I 

I  I 

I       FUEL  (2 1    =    ZI2)  I 


14.22 >I 

I 


I       TIRES(l)    =    Z(l)       I 
I  I 

I       TIRES(2)    =    Z(2)       I 
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/          1223 

/ 

I 
I*. 22 >I 

01 

OIL(l)     = 
0IL(2)    = 

ZU) 
ZI2I 

/          122't 

/ 

1 
14.22 >I 

I 

02 

SINDEX    = 

21  11 

I 

.14. 19. 
...    1220 


»««4«       PACKET    NUWBEK 
11 

11.17 >* 

1226         I  05 

/    READ    FROM    OtV    / 
/  MI  / 

/       VIA    FORMAT  / 

/  8  / 

/     INTO    THE    LIST    / 

I 

I 

I       MUTE       06 

•  LIST    =    WIDTH  * 

I 
I 


»»**»       PACKET    NUMBER 
14 

12.01 >« 

1229  I  11 

/  READ  FROM  OEV  / 
/MI         / 
/   VIA  FORMAT    / 
/         8         / 
/  INTO  THE  LIST  / 


*    *    *    * 
LIST  = 

«  «  *  » 


NOTE   12 

***** 

PSIRS     * 

***** 


*****   PACKET  NUMBER 
16 

12.01 >* 

1231    I  15 

/  READ  FROM  OEV  / 
/       MI        / 
/   VIA  FORMAT    / 
/         8         / 
/  INTO  THE  LIST  / 

I 

I 

I  N3TE  16 
*********** 
»  LIST    =    OLIFE,  * 

*  RLIFE  * 

*********** 

i 

I 

I 


*****       PACKET    NUMBER 
12 


*****       PACKET    NUMBER 
15 


*****       PACKET    NUMBER 
10 

11.17 >* 

1225         I 

03 

/    READ    FROM 
/                  MI 
/       VIA    FJRMAT 
/                     3 
/    INTO    THE    LIST 

DEV    / 
/ 

/ 
/ 
1 

I       NOTE 
********* 

•  LIST    =    IPRINT, 

*  JPRINT 
********* 

.      I 

04 

*  * 
« 
* 

*  * 

I 

... 

.11.13. 

...     1200 

12.01 >* 

1227         I  07 

/    READ    FROM    DEV    / 
/  MI  / 

/    .  VI  A    FORMAT  / 

/  1  / 

/     INTO    THfc    LIST    / 

I 
I 

I  NOTE  08 
*********** 
«  LIST    =     INC  * 

***«*#**#** 

I 
I 


.11.  13. 
...    1200 


12.01 >* 

1230         I  13 

/    READ    FROM    DEV    / 
/  MI  / 

/       VIA    FORMAT  / 

/  8  / 

/     INTO    THE    LIST    / 


I 

I 

I        NOTE 

14 

******** 

*    * 

LIST    = 

* 

(OETOUR(J),J    = 

* 

1.7) 

* 

******** 

1 

*    « 

*****       PACKET 
13 

NUMBER 

12.01 >♦ 

1228          I 

09 

/    READ    FROM 
/                  MI 
/       VIA    FURMAT 
/                     8 
/     INTO    THE    LIST 

OEV    / 
1 

1 
1 
1 

I 

I 

I  NOTE  10 
*********** 
*  LIST    =    WALK,  * 

»  TCMOVE  « 

*********** 

I 

I 


I 
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«•*»»       PACKET    NUMdER 
17 

12.01« — >»< 

1232  I  01 

/    READ    FROM    DEV    / 
/  Ml  / 

/       VIA    FORMAT  / 

/  3  / 

/    INTO   THE    LIST    / 

1 

I 

I       NTTE       02 

•  LIST    =     lA,     II,  • 

*  IZIJ), J    =    lf3l         * 

I 
,  I 

•         03 


NOTE  O* 

*  8EGIN    DO    LOOP  ♦ 

♦  1233    J    =^     1,     3  » 

I 

I  05 


PSI IA,I1, Jl    - 
Z(Jl 

I 
I 
I 


END    OF    DU 
LOUP? 


1 


YES 


*•••*      PACKET    NUMBER 


12.01 >» 

1234         I  07 

/    READ    FROM    DEV    / 
/  Ml  / 

/       VIA    FORMAT  / 

/  3  / 

/     INTO    THE    LIST    / 

I 
I 

I       NDTE       08 

"  LIST    =  r 

•    (CAPIJ),J    =1,5)       « 

I 
I 
I 


»»•♦»       PACKET    NUMBER 
19 

12.01 >* 

1235  I  09 

/  READ  FROM  OEV  / 
/MI         / 
/   VIA  FORMAT    / 
/        8        / 
/  INTO  THE  LIST  / 


«  *  «  « 
LIST  = 


NOTE  10 

*  *  «  *  « 
OSPEEU  • 

*  V  «  «  * 


13. 

.  1200 


•«»»•   PACKET  NUMBER 
20 


12.01 >* 

1236    I 


11 


/    READ    FROM    OEV    / 
/  MI  / 

/       VIA    FORMAT  / 

/  5  / 

/    INTO    THE    LIST    / 


***«»       PACKET    NUMBER 
21 

12.01 >» 

1237  I  13 

/    READ    FROM    OEV    / 
/  MI  / 

/       VIA    FORMAT  / 

/  8  / 

/    INTO    THE    LIST    / 


I 

I       NOTE       1* 

•  LIST    =    OCWORK,  » 

♦  OCSCHL  • 

I 


I 


»•»**       PACKET    NUMBER 
22 


12.01 >* 

1238         I 


15 


/  READ  FROM  0£V  / 
/       MI        / 
/   VIA  FORMAT    / 
/        8        / 
/  INTO  THE  LIST  / 

I 
I 

I   NOTE   15 

*  LIST  =  COMVOT    » 


*****   PACKET  NUMBER 
23 


12.03 >» 

1239  I  17 


/  READ  FROM 

DEV 

/ 

/       MI 

/ 

/   VIA  FORMAT 

/ 

f                     8 

/ 

/ 

INTO  THE  LIST 

/ 

I 
I 

I       N3TE       IB 
*****«•*«** 

•  LIST    =  ♦ 

•  ISLIMIT(J),J    =  • 

•  1.51  • 
*********** 

I 
I 


*  *    *    *    * 

*  LIST 

*  *    •    *    « 


NOTE 

*  «    * 
AACOST 

*  »    • 


13. 

.    1200 
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11.15 >I 

I  NOTE  01 
***»»*4**** 
*      CONTINUE       * 

I 

I 
I 

***ARRAYS  ARE 
ESTABLISHEO  FOR  FULL 
DEPTH  AND  PARTIAL 
DEPTH  PATCH  SIZE 

***AND  RANDOM 
LOCATIONS  ALONG  THE 
ROADWAY 


»« 


INITIALIZE    NY    AN 
ODD    NUMBER    AND 
Nl,N2,N3,    COUNTERS 
FOR    PATCH    ARRAY 
I 


**      DETERMINE    PFACT, 
A    FACTOR    TO    CONVERT 
F.D.     PATCH    LENGTHS    TO 
AREA     IN 

I 

I 

I                      03 

I       PFACT 

=    WIDTH/9       I 

**      TEST 
TYPE 

I 
I 
I 
FOR    PAVEMENT 

1 
I 

*          04 
*         * 
*                     * 
TRUE    *                                * 
*    I  TYPE    .EO.     1       ♦ 

*   * 
* 
IFALSE 


**   IF  THE  PAVEMENT 
IS  BITUMINOUS  THE 
ARRAY  IS  FACTORED  BY 
TEN  AND 


I  .        05 

* * 

I    PFACT    =    PFACT*10       I 

« « 

I 
>I 

106  I       NOTE       06 

*  CONTINUE  * 

I 
I 
I 

♦»       TWO    RANDOM 
NUMBERS    ARE    GENERATED 
FOR    TESTING    AGAINST 
DISTRIBUTION 

I 

I 


I       NOTE 

08 

**#*    #*#*« 

4     4 

*          BEGIN    DO    LOOP 

* 

*       110    11   =    1,     10 

4 

#*#**««** 

4     4 

18.05 >I 

*          09 

*          * 

*                     « 

*      Nl    .EQ.       * 

TRUE 

*    1000    .AND.    N2 

4-t 

*    .EQ.     1000    « 

I 

*                         4 

I 

*           4 

I 

4 

.  .  •  • 

"IFALSE    . 

18    . 

I 

06    . 

NOTE       10 

>r444*44444 

BEGIN    00    LOOP  * 

101    I    =    1,     1000       * 

|:*t44*»4*4 

I 

3.04 >| 

I       NOTE       U 

^4444*4444 
BEGIN    DO    LOOP  4 

104    J    =    I,    2  • 

>»4«444444 
I 
I< 

I  12 


NY    =    NY»65539 


*         13 

4  4 


I 


(0/*)     * 
•f *  NY 


4   .        4 
4 

(-) 


I  NY    =    NY    t  I 

I       2147483647   ♦    1  I 


I  RANDOM! J)    =  I 

I       NY4.4656613E-9  I 


END  OF  DO 
LOOP? 


44 

THE    F 

I 

RST    RANDOM 

NUMBER    IS 

CONVERTED 

TO 

A    FULL 

DEPTH 

CONCRETE 

44 

PATCH 

LENGTH    AND 

TO 

A    PARTIAL    DEPTH 

PATCH    AREA 

I 

I 

I                        17 

I  XF  =  RAND0M(1)450  I 
I  I 

I  XP  =  RANDOM (1)440  I 
4 4 

I 
I 

I 

44   ONCE  ANY  COUNTER 
REACHES  1000  THE 
ARRAY  HAS  BEEN  FILLED 

I 

I 

I 

«    18 


►             *   TRUE 
11  .EO.  1000   4 


IFALSE 

I 

I 

I 

I 

I 

I 
*»   THE  FULL  DEPTH 
PATCH  LENGTH  IS 
ASSIGNED  TO  THE 
DENSI TY  FUNCTION 
44   FOR  FULL  DEPTH 
PATCH  SIZES  AND  THE 
RESULTING  NUMBER  IS 
TESTED 

»*   AGAINST  THE 
SECOND  RANDOM  NUMBER 

I 

I 

I          19 
4 4 

I       .  YD  =  I 

I  (.186E-3)  I 
I  ♦(  (.75*XFI*»8)  ! 
I   ♦(EXP(-.754XF) 1   I 

4 4 

I 
I 
I 

4    20 

4     4 
4  4 

4  4   TRUE 

4    RAN0OM(2)    • 

4   .GT.  YD   4 


IFALSE 

I 

1 

I 

I 

I 

44   THE  ACCEPTED 
PATCH  IS  PLACED  IN  AN 
ARRAY 

I 

I 

I          21 
4 4 

I     Nl  =  Nl  +  1     I 
I  I 

I  PATCHF(Nl)    =  I 

I  XF»PFACT  I 

4 4 

I 

I 


>* 

I 

*«   ONCE  ANY  COUNTER 
REACHES  1000  THE 
ARRAY  HAS  BEEN  FILLED 
I 
— 17.18*~>1 
I 
103     4    22 


*  N2  .EQ.  1000   *-♦ 


I 

I 
I 

18  . 
02  . 


**       THE 

PARTIAL    DEPTH 

PATCH    AREA    IS 

ASSIGNED    TO    THE 

DENSITY 

FUNCTION 

44       FOR 

PARTIAL    DEPTH 

PATCH    S 

[ZES    AND    THE 

RESULTING    NUMBER    IS 

TESTED 

44       AGAINST    THE 

SECOND 

RANDOM    NUMBER 

I 

I                        23 

I 

YD    =                        I 

I    1.474XP*EXP(-.5«       I 

I              XP)    +    .1                 I 

I 
I 
I 

*         24 

*           4 

* 

4 

« 

*       TRUE 

*          RANDOM!  2)          »-•■ 

4 

.GT.    YD      ♦          I 

» 

*                I 

*          *                     I 

*                     .... 

IFALSE    .     13    . 

I                 .    02    . 

I                   .  •  .• 

I                      108 

44       PARTIAL    DEPTH 

PATCH    CANNOT    BE 

SMALLER 

THAN    1/2    SO. 

FT. 

I 

I 

*          25 

4           4 

4 

4 

4 

♦       TRUE 

♦       XP 

,LT.    0.5      *-♦. 

4 

»         I 

4 

*              I 

*         *                   I 

*                   .... 

IFALSE    .    18    . 

I                 .    02    . 

I                   .... 

I                      108 

I 

I 

I 

**       THE 

ACCEPTED 

PATCH    IS 

PLACED    IN    AN 

ARRAY 

I 

I 

I       / 
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17 

.2  6— 

->* 

I 

01 

I 

N2 

=    N2 

+  1        1 

PATCHP(M2) 

=    XP        I 

1 

1 

1 
**       ONCE    ANY    CUUMTER 
REACHES    1000    THE 
ARKAY    HAS    bEEN    FILLED 

17 

.2  2*- 

->I 

TRUE 
* 

103 

* 
NJ    . 

«         02 

* 
hQ.     1000       » 

IFALSE 

I 

I 

I 

I 

I 
I 

*♦  THE  SECOND  RANDOM 
NUMdER  IS  ASSIGNED  TO 
A  RANDOM  NUMBER  ARRAY 

1 

I 

I  03 
* « 

I  Ni  =  N3  +  I  I 

1  I 

1  RLOCINJ)  =  I 

I       RANUUM(2)  1 


1 


«    NO 
END  OF  00    «-«• 
LOOP?    *    I 


.     17 
.     11 


* 

«          NO 

*          END    OF    00 

«-  + 

«          LOOP? 

*          I 

*                     * 

*          « 

# 

.... 

lYES 

.     17 

I 

.    09 

1 

1 

...  . 

I 
17.09 >1 

111             I       NOTE       06 

«««««««« 

*    *    * 

*               CONTINUE 

* 

I 

*    *    * 

1 

*«       THE    RANDOM 

MUMBER 

ARRAY     IS    SORTED 

IN 

ASCENDING    ORDER 
I 
I 

I       NOTE 

OB 

****j)t<t#*# 

*    * 

<■          BEGIN    DO    LOOP 

* 

*        IDS    1    =     1,     999 

* 

*#«****** 

«    * 

18.14 >I 

I 

09 

1               N    =    I     t     1 

1 

I 

I 

1       NOTE 

10 

*«**♦»*«# 

*    * 

»          BEGIN    DO    LOOP 

4c 

<■        107    J    =    N,     lOOC 

* 

1 

*      * 

»          11 

18.20 >I 

1 


TRUE    ♦  * 

t ♦    RLOCUI     .GT. 

*       RLOCdl        * 


TEMPI 

= 

RLOCI 1)        I 

RLOCI  1 

= 

RLOC(J)     I 

RLUC( J) 

=    TEMPI       I 

I 
>I 

END    Of    DO 
LOOP? 


#        * 

I 

I 

lYES 

^♦♦INITIALIZE    THE 

HOLD    FOR    THE 

SIMULATION    WORKLOAD 

1 

1                      18 

105            «          14 

* 

*          * 
*                     * 

I 
* 

SWORKMAI     =    0          1 

NO 

I 

*          END    OF    DO 

*-<■ 

I 

*          LOOP?          * 

1 

1        NOTE       19 

#                     * 

I 

* 

«*««*****« 

*          * 

I 

* 

BEGIN    DO    LOOP          * 

* 

.... 

* 

121    IH    =     1,    N          » 

IVES 

18    . 

« 

********** 

I 

09    . 

I 
19.02 >l 

1 

* 

1                      20 

I 

COMPUTED    GO    TO       I 

I 

I 

FOR       J                     I 

««»COMPUTE    THE 

* 

SIMULATION    WORKLOAD 

I 

130                        18.21    1 

TO    BE    ASSbCIATED    WITH 

I 

131                      18.22    I 

EACH    ACTIVIT 

I 

132                      18.23    I 

I 

* 

* 

I 

I 

I       NOTE 

15 

1 

********* 

*    * 

I 

»          BEGIN    DO    LOUP 

* 

IF    OUTSIDE    THE    RANGE 

*          120     lA    =    1,     7 

* 

1 

********* 

*    * 

18.20 >I 

130             1                        21 

I 

« 

* 

1 

TEMPI    =                  I 
PATCHFIIW)                I 

* 

* 

1 
I 
I 

—  18.15* — >« 

I 
♦♦♦DETERMINE    THE 
TYPE    OF    HORKSITEiFULL 
DEPTH,     PARTIAL    DEPTH, 
LANE 

I 

I 

I  16 

* « 

I  J    -    SIMIIA.ll  I 


I 
I 

♦♦♦DETERMINE  THE 
NUMBER  OF  ITERATIONS 
I 


N    =    SIMCI A,4I 


TEMPI    = 
PATCHP(IH) 


I  SMORKI I&l    = 

I  (SIMI  IA,21    »■ 

I  SIM(IA,3I)^N 
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♦♦♦ACCUMULATE 
SIMULATION  WORKLOAO 


18.21^— >* 
133  I 


19.09 >I 

I 


I  SWORK(IA)    = 

I  SMORK(IA)    <- 

I  TEMP1*SIM(I A,2) 

I  SIMUAf3l 


I  CPLANE    « 

I  0ET0UR(5I 

I  /DETOUR!  7) 

♦ , 

I 
I 

I 


♦ 

NO 

END 

QF    DO 

*-t 

LOOP? 

♦ 

I 

♦ 

* 

I 

♦ 

♦ 
* 

I 

lYES 

I 

Is 

20 

18.23 > 


♦  ♦ 
♦         END    OF    DO 

♦  LOOP?         ♦ 
♦                   ♦ 

♦         * 
♦ 

lYES 
I 

NO 
*-t 

*18* 
16 

I 

I 

•  •  •  • 

I 

SUBROUTINE    SPEED 
1 

I 
***DETERMI NATION 
SPEED    MATRICS 

OF 

I 

♦♦•DETERMINE    MAXIMUM 
AVERAGE    OPERATING 
SPEED    FOR    FREEWAV 

1 

0* 

1                  TEMPI    = 
I             0.9^DSPEED 

I 

1 
I 

♦♦♦ESTABLISH    THE 
NUMBER    OF    SPEED 
CATEGORIES 

I 

♦♦♦DETERMINE  SPEED 
LIMIT  ON  DETOUR 
I 
I 
I  06 


I 


SLIMITILANESI 
DET0UR(3) 


I 
I 


>♦ 

I 

♦♦♦00  FOR  EACH  SPEED 
CATEGORY 


I      NOTE      07 

♦  ♦♦♦♦»♦♦♦♦♦ 

♦  BEGIN    DO   LOOP         ♦ 

♦  550    IC    =    l,    N         ♦ 

♦  ♦♦♦«♦♦♦♦♦♦ 

I 
20.17 >I 

♦♦♦HOW  MANY  LANES 
OPEN  TO  THE  MQTOREST 
I 
I 
I  08 


I   M  =  LANES 


IC 


I 


I 

I 
I 
♦♦♦MINUS  IS  FREEWAY, 
ZERO  IS  DETOUR 
I 
I 
I 
♦    09 


(0)     ♦ 
+-♦ 

I  ♦ 
I 

I 

19    . 

II  . 


1 


♦♦♦LANE    CAPACITY 
COMPUTATIONS 

>♦ 

560  I  10 

«__ * 

I  CPLANE    =  I 

I         CAPdO/LANES         I 

« _______ « 

I 
1 
I 


.20.01. 
...    562 


.20,02. 
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19.09 >I 


CPLANE    = 
CAP( IC)/M 


i.  10*  —  >I 

563  1       NOTE 


*#**♦*##*** 

I 

I 

I 
»««C0'1PUTE  SPEEO  AT 
CAPACITY 

I 

I 

I  03 


TEMP2    = 

12.0*CPLANE    t 

.!)«CPLAiME**'..46 


1 

I 

»*OETE«MINE    MAXIMUM 
EED    LOSS 

I 

I 

I  04 


TEMP3  =  TEMPI 
TEMP2 


I 

«»*Da  FOR  ELEVEN 
INCREMENTS  OF  THE 
VOLUME-CAPACITY    RATIO 

1 

I 

I       NOTE       05 


***** 


*    *    * 


«  BEGIN    DO    LOOP 

*  551    I     =     L,     11 

*#**#***• 
1 

20.16 >I 

1 
•♦•DETERMINE  A 
VOLUME 

I 
I 


I    FACT2  =  ( 1  - 

I     1)»CPLANE/10. 

1 

I  VC  =  FACT2/CPLANE 

* 

I 
I 
I 
•••ESTABLISH 
CONSTANT  SPEEO  LOSS 
I 
I 
I         0 


I 


TEMP4  = 
(.4*FACT2 
10)*VC 


I 
I 

***OETERMINE  TOTAL 
AVAILABLE  SPEED  LUSS 
TU  CAPACITY  SPEED 

I 

I 

I  08 


TEMPS    =    TEMP3 
TEMP* 


I 


■>* 

I 


-•    TEMP5     .LT. 


ITRUE 
I 
I 
I 
I 
I 

I                        10 
4 * 

I                TEMP5    =    0  1 

* * 

I 

>I 

I 

•••DETERMINE  SPEED 
LOSS  TO  CAPACITY 
SPEEO 

I 

I         U 
* * 

I  TEMP6  =  I 
I  VC«*25«TEMP5  I 
* * 

I 

I 
I 

♦••COMPUTE  AND  HOLD 
SPEED 


SP(  IC,  I)  =      I 

TEMPI  -  TEMP*  -   I 
TEMP6         i 


I 
I 

•••DETERMINE  SPEED 
FOR  SPEED  LIMIT 
I 
I 
I  13 


TEMP  7  =        I 

SLIMITI  ICI^.9  -   I 

3.6^VC         I 


1 
I 

•••TEST  FOR  MI 
SPEED  AND  HOLD 
MIMIMUM 

I 

I 

I 


SPI  IC, I  )  .GT. 

•    TEMP7    * 


I  SPI  IC. I  I  =  TEMPT   I 


-20. 1*^ — >* 


• 

NO 

END  OF  DO 

•  -♦ 

LOOP? 

• 

I 

•        • 

I 

•    • 

* 

' 

lYES 

20 

I 

06 

END  OF  00    •-♦ 
LOOP?    •    I 


lYES    .  19 
.1        .08 
I         .... 

I 

I 
I 
I 

SUBROUTINE  INOCC 
1 

I 

•*       CREATION    OF    THE 
IHOUR    ARRAY    FOR 
OCCUPANCY    TIME 
•*       CREATE    A 
OCCUPANCY    ARRAY    FOR 
EACH    ACTIVITY 

I 

I 

I       NOTE       18 
******«••♦• 

•  BEGIN    DO    LOOP  • 

*  1342    lA    =    I,    7  • 
****#•***♦• 

I 
21.25 >I 

I 
•«       ZERO    INDEX    SO 
DEFAULT    OCCURS    IF 
ACTIVITY    IS    NOT 
I  DENT IFIED 

I 

I 

1  19 


I 


INDEX    =    0 


I 
***IF  THE  CREWHOUR 
VARIABLE  'OVERIl.IA)' 
IS  EQUAL  TO  24 

•••THEN  ASSIGN  I'S 
TO  THE  IHOUR  ARRAY 
FOR  ACTIVIY  lA 
I 
I 

•    20 


OVERIl.IA) 
•   .EO.  24 


I 

21 

1 

INDEX  = 

1 

I 

I 

I   NOTE   22 

•  •••*****4c 

BEGIN  DO  LOOP    * 

1341  IH  =  1,  24   * 

****#*««4i* 

1 

I< 

1         23 


IHOURt IHiIA) 
INDEX 

I 
I 
I 


END    OF    DD  » + 

LOOP?  » 


INDEX    .EQ.     1 


IFALSE 

I 

1 


•*       SEARCH    FOR    A 

MATCH    TO    ACTIVITY 

NUMBER 

I 

T      « 

I       NOTE 

«****«**• 

*  BEGIN    DO   LOOP 

•  1343    I    =    1,     10 
***•**••• 

I 

21.10 >l 

I 

•         27 


*       INOCCII.l) 
*       .ME.    lA 


I 

I 

I 

I 

I 
••   ESTABLISH  A 
"FROM",  "TO" 
OCCUPANCY  RANGE 

I 

I 


I 
I 
I 

21 
25 


I 
I 
I 

21 

10 


I  INI  =  INDCCII 

.2)   I 

I  IN2  =  INOCCII 

>3)   I 
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20.^8 >* 

*»   THE  "FROM" 
OCCUPANCY  HOUR  CANNOT 
EXCEED  THE  "TO" 
OCCUPANCY  HOUR 

I 

I 

I 

•    01 


FALSE  *  « 
*  INI  .GT.  IN2 


ITRUE 

I 

I 

I 

I 

I 

I 


I 

»*   SET  INDEX  TO 
EQUAL  I  SO  THE 
DEFAULT  ROUTINE  iS 
BYPASSED 


I 
I 

03 

, 

INDEX 

=     I                I 

I 
I 

** 

I 
ASSIGN 

TO    I  HOUR 

FOR 

EACH    HOUR    WHEN 

ROAD    CAN    BE 

1 

OCCUPIED 

I 
I 

NOTE       0* 

«    * 

*    «    *    <( 

*    *    *    if    * 

4 

BEGIN    UO    LOOP          * 

*    13*5    J    = 

INI,     IN2    * 

*    « 

*    *    *    * 

4>    *    4    «    * 

I 

**       THE    IHOUR    ARRAY 
CAN   NOT    EXCEED    2* 

I 

I 

I 

*  06 

*  » 
FALSE    *  * 
*       Jl    .GT.    2**         » 


ITRUE 
1 
I 
I 
I 
,      I 

I                      07 
« 

Jl    =    Jl    -    2*  I 

» 

I 
>I 

1345         I  08 

* 

HOURIJI.IAI  =  1  I 
* 

I 

I 


->* 
I 


END    OF    DO 
LOOP? 


20.27 > 

1343 


END    OF    DO 
LOOP? 


20 
27 


*  •       TRUE 

♦     INDEX    .EQ.     1       »- 


FALSE    .     2 
.    24 


•*       DEFAULT    OPTION 
FOR    WHEN    NO    ACTIVJTY 
HAS    BEEN     IDENTIFIED 
*•       SEARCH    FOR    A 
HATCH    TO    ACTIVITY 
NUMBER    TEN 
I 

I       NOTE       12 

*********** 

*  BEGIN    DO    LOOP  « 

*  1346    I    =     1,     10         * 

*********** 

I 

21.23 >I 

I 

*         13 


*  *       TRUE 
*       INOCCd.l)  *-♦ 

*  .NE.     10       »  I 


I 


IFALSE    .    21    . 

I  .    23    . 

I  .... 

I  1346 

I 

I 

I 
*       ESTABLISH    A 
"FROM",    "TO" 
OCCUPANCY    RANGE 

I 

I 

I                        14 
* * 

I  INI  •  IN0CCII,2)   I 
I  I 

I  IN2  =  IN0CC(I,3)   I 


>* 

I 
**   THE  "FROM" 
OCCUPANCY  HOUR  CANNOT 
EXCEED  THE  "TO" 
OCCUPANCY  HOUR 

I 

I 

1 

•    15 


FALSE  *  * 
*  INI  .GT.  IN2 


ITRUE 

I 

I 

I 

I 

I 

I 


I   IN2  =  IN2  ♦  24 


>I 

I   NOTE   17 

*********** 

*  BEGIN  DO  LOOP    • 

*  1347  J  =  INI,  IN2  • 

*  *****•**«* 

I 

I< 

I         18 


I 


Jl  =  J 


I 


I 
I 

I 

*«   THE  IHOUR  ARRAY 
CANNOT  EXCEED  24 


FALSE  « 
*   Jl  .GT.  24 


ITRUE 

I 

I 

I 
I 
I 

I         20 

* * 

I    Jl  =  Jl  -  24     I 

* * 

1 
>l 

I 
»•   ASSIGN  1  TO  IHOUR 
FOR  EACH  HOUR  WHEN 
ROAD  CAN  BE  OCCUPIED 

I 

I 
1347    I         21 

* * 

I  IHOUR(Jl,IAI  =  1   1 
« . * 

I 
I 


->* 
I 


END  OF  03 
LOOP? 


1346    *    23 

*  * 

*  * 

»  »    NO 

♦  END  OF  DO    •-♦ 

*  LOOP?    *  I 

*  .       •       I 

*  *         I 

•  •  ... 
lYES    .  21  . 
I       .  13  . 
I        .... 

I 

I 

21.U-~>I 

1349  I  N3TE  24 
*********** 
*  CONTINUE        * 

*********** 
I 
20.25— >! 
I 
1342    »    25 

*  * 

*  * 

*  »         NO 

*  END    OF    03         *-♦ 

*  LOOP?         *         I 

*  »  I 

*  *  I 

*  .... 

I  YES  .     20    . 

I  .     19    . 


SUBROUTINE    RECON 

1300         1       NOTE 
»               CONTINUE 

26 

*    * 

* 

«    * 

•»       BALANCE 
DISTRIBUTION    OF    TRIP 
PURPOSES    TO    REFLECT 
INPUT    X    COM.VEH. 

I 

1 
•*       FOR    INITIAL    AND 
FINAL    YEAR 

1 

I 

1       N3TE 
********* 

*  BEGIN    DO   LOOP 

*  1301    1    =    1,    2 

27 

*  « 
* 
* 

*  * 

22.11  — >I 

**       FOR    AM    AND    PH 
PEAK    DIRECTIONS 

I 

I 

I       NOTE 

•  BEGIN    00   LOOP 

*  1302    ID   -    I,    2 

28 

»    • 

* 

» 

•    * 

I 
I 
I       / 
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21.28* 


I 


«*   IMITIALIZE 
VAKIASLE  TO  HQLl)  SJM 
UF  PERCEMTAGES 

1 

I 

I  01 


I 


TEMPI 


1 


I 
1 

**   SUM  PERCENTAGES 
UF  PASStNOER  CAR  TRIP 
PURPOSES 

I 

I 

I   NOTE   02 


***** 


*  «  *  * 


»  flEGIN    00    LOOP         » 

*  1103    IT    =    1,    S         * 

•  ♦******•** 

I 
>I 

I  03 

« 1 

1  TEMPI  =  TEMPI  +  I 
I  PERCNTdT,  10,1  )  I 
« « 

I 
I 


1303 


•0^ 


EMo  OF  no 

LOOP? 


«*  E 
CURRE 
PASSE 
PURPO 


I 

STAB  LI 
CT  I  O.J 
■\I'jE«    C 

ses 
1 
I 


SH 

FACTOR    FUR 

AR    TRIP 


ACTl    = 

l»TRUC 
/TEM 


(  1    - 
KSI  I  )  I 
PI 


*•  C 
CAR  T 
PERCE 


I 
I 

I 

ORRECT 

RIP    PU 

imTAGES 

I 

I 

I 


PASSENGER 
RPOSE 


****** 


EGIN    0 

04    IT 

*    *    * 

I 

I 

I 


0   LOOP         * 
=    1,    5         * 

***** 


I  PER 
I  PE 
I 


CNT( IT 

RCNT( 1 

♦  FAC 


ID.Ii    = 
T,  10,1  ) 
Tl 


END    OF    on 
LOOP? 


**       REPLACE    ASSUMED 
PERCENTAGE    OF 
COMMERCIAL    VEHICLES 
WITH    INPUT    PERCE 

I 

I 

I  09 


I    PERCNT(6, 10,1  I    = 
I          .01»TRUCKS(  I  ) 
« 

I 

I 

I 


I 


tNO 

OF    00 

•  -»■ 

LOOP? 

* 

I 

* 

' 

« 
* 
* 

I 

I 

I  YES 

11 

01 

*                              * 

NO 

*          ENO    UF    00 

ft-  + 

*          LOOP?          * 

I 

«                     * 

1 

ft          ft 

I 

* 

.... 

IVES 

21 

I 

28 

I 
I 
1 

.... 

I 
«          RECONCILE 

QVEKRIOOEN     100* 

DISTRIBUTIONS    FOR 

EACH    TRIP    PURPOSE 

I 

1 

I       NOTE 

12 

********* 

*    * 

*          BEGIN    DO    LOOP 

» 

*         1305    I    ^    1,    2 

« 

********* 

*    * 

24.03 >I 

I       NOTE 

13 

«****««** 

*    * 

*          BEGIN    DO    LOOP 

« 

•        1306    ID    =     1,     2 

« 

ft******** 

*    ft 

24.02-— >I 

I       NOTE 

14 

ft********** 

*  BEGIN    on    LOOP  * 

*  1307    IT    =    1,     6         « 
*♦***♦**»«« 

I 
I 


—  22.14* — >« 

1 
•*       TEST     TO    SEE     IF 
DISTRIBUTION    WAS 
OVERRIDDEN 

I 

I 

I 

*  15 


»    I8ALI IT, ID, I )     *- 

*     .eo.  0      * 


IFALSE 

1 

I 

I 
I 
I 

16 

I                TEMPI    = 

0               I 

1 

I 

I 
**      SUM    PERCENTAGES 
OF    OVERRIDDEN 
DISTR 18UTI0N 

I       NOTE       17 
*********** 

•  BEGIN    DO    LOOP         ♦ 

*  1308  IN  =  1,  24  * 
*********** 

I 
>I 

I  18 

« * 

I  TEMPI  ^  TEMPI  ♦  I 
I  PCTAOTI IH,IT,IO,  I 
I  I)  I 


END  OF  DO 
LOOP? 


I 
I 
I 

««   ROUND  SUM  Of 
PERCENTAGES  TO 
NEAREST  .IX 

I 

I 


I     ITEST    =     (TEMPI    t       I 
I            .00051*1000  I 

« * 

I 
I 
I 

•*   IF  SUM  OF 
PERCENTAGES  NOT  EQUAL 
TO  100«  RECONCILE 
EACH  PERCENTAGE 

I 

I 


->* 
I 


*  *   TRUE 

*   ITEST  .EO.    * 

»    1000     » 


I   FACT  I  =  l/TEMPl   I 

* * 

I 
I 

I   NOTE   24 
*********** 

*  BEGIN  00  LOOP    • 

*  1309  IH  =  I,  24   ♦ 
*********** 

I 

22.26 >I 

I         25 


I  PCTAOTI IH,IT, 10, 
I         I)  = 
I  PCTAOTI IH, IT, 10, 
I       l)*FACTl 

* 

I 
I 

I 


I 


ENO  OF  00 
LOOP? 


I 

I 
I 

22 
25 


*    NO 
END  OF  DO    •-+ 

LOOP?    •    I 
•        •      I 

*    *        I 


YES 


22  . 
15  . 


*    TEST  FOR  BALANCE 
OR  CREATE 

DISTRIBUTION  OF  ALL 
TRIPS 

I 

I 

I 

•         28 


*  *       TRUE 
*    IBAL(7,I0,I)       »-♦ 

*  .EQ.    0        *         I 
*  •  I 

•         •  I 


FALSE 


23 
22 
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22.28 >» 

1 
»    BALANCE  ALL  TRIPS 
DISTRIBUTION 

I 

I 

I  01 


+ 23.08*  —  >* 

I 


I 


TEMPI  =  0 


I 


*•   SUM  PERCENTAGES 

I 

I 

I   NOTE   02 
*♦**»***»*« 

*  BEGIN  00  LOOP    * 

*  1310  IH  =  1,  24   * 

I 

>I 

I  03 

« « 

I  TEMPI  =  TEMPI  +  I 
I  PCTAOTI IH,7, 10, i I  I 
* » 

I 
I 


1310 


0* 


END  OF  DO 
LOOP? 


**       ROUND    SUM    OF 
PERCENTAGES    TO 
NEAREST    .li 

1 

I 

I 

05 

I     ITEST    -    (TEMPI 
I            .0005)*1000 

♦       I 

I 

♦*   IF  SUM  OF 
PERCENTAGES  NOT  EQUAL 
TO  100  RECONCILE  EACH 
PERCENTAGE 
I 


I 


ITEST    .EQ. 
1000 


I 
I 
1 
1 

I 

07 

I 

FACT] 

=    1/TEXPl 

I 

I 
I 

I       NOTE 

08 

* 

*    «    « 

* 

«##««« 

* 

BEGl 

N 

DO    LOOP 

* 

* 

1311 

I 

H    =     1.     2-4 

* 

* 

*    *    « 

* 

I 

I 

09 


I    PCTADTI  IH,7, 10,1  I    I 
I                          =  I 

I    PCTAOTI IH,7, 10,1)     I 
I                  SFACTl  I 

« * 

I 
>I 

I 
1311  «  10 


END    OF    00 
LOOP? 


NOTE  11 

^********* 

BEGIN    00    LOOP  * 

1312     IH    =     1,     24  * 

I 

3.21 >I 

I  12 


I 

TEMPI    = 

0 

I 

I 
I 
I 

NOTE 

13 

« 

***«»* 

«    « 

•    » 

# 

BEGIN    DO 

LOOP 

# 

* 

1313    IT    = 

1,     6 

« 

« 

#     «     #     «     4c     « 

I 

»    * 

*    # 

*4 

ADJUST     100? 

DISTRIBUTIONS 

BY 

0' 

STR  IBUTION 

OF    TRIP 

PURPOSES 

I 

I 

I 

14 

I  PCTAOTdHilT.IO, 

I  I)    = 

I  PCTAOTI IH.IT, ID, 

I  I  )*PERCNT( IT,IO, 

I  1) 

I 

I 
*»   SUM  PERCENTAGES 
UF  INDIVIDUAL  TRIP 
PURPOSES 

I 

I 


I  TEMPI  =  TEMPI  t  I 
I  PCTADTI IH.IT, ID,  I 
I  II  I 

« » 

I 
I 
I 
1313    »    16 

«    « 
*        * 
»  «     NO 

*    END  OF  DO    * 

*    LOOP?    * 


*    * 
lYES 


>• 

I         17 

t « 

I  FACTl  =  I 
I  PCTADTI IH, 7, ID, I)  I 
I  /TEMPI  I 
t « 

I 
I 

**   BALANCE 
INDIVIDUAL  TRIP 
PURPOSES  DISTRIBUTION 
TO  DISTRIBUTION  OF  A 


I   NOTE   18 

*  BEGIN  00  LOUP    * 

♦  1314  IT  =  1,  6    * 

I 

I< 

I  19 


I  PCTADTI IH, IT, ID,  I 

I         II  =  I 

I  PCTAOTI IH, IT, ID,  I 

I       II*FACT1  I 


END  OF  00 
LOOP? 


1312    *    21 

*  « 

»        « 
*  *    NO 

♦    END  OF  DO    *-t 
«    LOOP?    *    I 

»         «      I 

*  *         I 


YES    .  23 
.  12 


*  CREATE 
DISTRIBUTION  OF  ALL 
TRIPS 

22.28 >* 

1315    I   NOTE   22 

*  CONTINUE        * 

I 

I   N3TE   23 

*  BEGIN  DO  LOOP    • 

*  1316  IH  =  1,  24   » 
*•*»*♦***»♦ 

I 

24.01 >l 

I         24 


I                TEMPI    =    0 

I 

I 

1 

I       NOTE 

25 

********* 

♦    * 

.*          BEGIN    DO    LOOP 

« 

*       1317    IT    =    1,     6 

t 

I 

*    * 

I 
•»       ADJUST 

lOOiDISTRIBUTnNS 

BY 

DISTRIBUTION    OF    TRIP 

PURPOSES 

I 

I 
I 

26 

I    PCTAOTI IH,IT, 10, 

I                      II    = 

I     PCTADT(IH,IT,  ID 

I     I)*PERCNT(IT,10, 

I                        ft 

I 

I 
I 

*•   SUM  PERCENTAGES 
OF  INDIVIDUAL  TRIP 
PURPOSES 

I 

I  27 

* « 

I  TEMPI  =  TEMPI  «•  I 
I  PCTADTI IH,IT, ID,  I 
I  II  I 


END  OF  D3 
LOOP? 


I 

I 

I 

I 

I 

I 
**   PERCENTAGE  OF  ALL 
TRIPS  EQUALS  SUM  OF 
INDIVIDUAL  TRIP 
PUTPOSES 

I 


I 


29 


I  PCTADTI IH, 7, ID, I  I  I 

T        =  TEMPI        I 


.24.02. 
...  1306 
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li.l'i >« 

I 
1316    •    01 


«  NO 

END  OF  00  «-♦ 

LOOP?    *  I 

•         *  1 

*    *  I 


23.21 > 

1306 


YtS 


23 
2* 


»  NO 

END  OF  00  *-* 

LOOP?    «  1 

*        *  I 

•    ♦  1 


YES 


.  11 

.    14 


«    NO 
END  .JF  00    *-»• 
LOOP?    • 


iVES    .  2 
I        .  1 
I 
I 

I 

I 
♦    TEST  FOR  AVERAliE 
MORNING  AMO  EVENING 
PEAKS 

I 

I 

I 

*    0<V 


NOTE   05 

*  BEGIN  00  LOOP    * 

*  1318  I  =  1,  2    * 

I 

2<..ll >I 

I   NOTE   06 

*  BEGIN  00  LOOP    • 

*  1319  IT  =  1,  7    » 

I 

2*.  10 >I 

I   NOTE   07 

*  BEGIN  00  LOOP    ♦ 

*  1320  IH  =  I,  2't   ♦ 

I 


— 24.07* — >» 

I 
*•   AVERAGE  MORNING 
ANO  EVENING  PEAKS 

1 

I 

I  08 

« « 

I  PCTADTI IH.IT, 1,1 ) 

I 

I  (PCTAOTl  IH,  IT,  1, 

I         I  )  * 

1  PCTAOTl IH, IT, 2, 1 ) 

I  )/2 

I 

I  PCTAOTl IH, IT, 2,1 ) 

I 

I  PCTAnT(IH,IT,l,I ) 

»___ _ _ 

I 

I 

I 


< ♦    END  OF  00 

«    LOOP? 


ENU  OF  DO  *-♦ 

LOOP?  •    I 

«         •  I 

*    »  I 


YES 


24 
07 


*    NO 
ENO  OF  00    *-• f 

LOOP?    •    I 
♦         •       I 

»    *         I 


I  YES 
I 
I 
I 


24 
06 


>I 

1331    I   NOTE   12 

•  CONTINUE        * 

I 
I 

«    CONVERT  DAILY 
OISTR  IBUTION  OF  'tr  IP 
PURPOSES  TO  HOURLY 
DISTRIBUTION 
I 

I 
**   INITIAL  ANO  FINAL 
YEAR 

I 

I 

I   NOTE   13 

•  BEGIN  00  LOOP    * 

•  1321  I  =  1,  2    • 

I 

I 


24.13* — >* 

•*   A.M.  ANO  P.M. 
PEAK  DIRECTIONS 

I 

I 

I   NOTE   14 

*  BEGIN  00  LOOP    * 

*  1322  10  =  I,  2    * 


l< 

I 
**   EACH  HOUR  OF  THE 
DAY 

I 

I 

I   NOTE   15 

*  BEGIN  DO  LOOP    * 

•  1323  IH  =  I,  24   » 

1 

I< 


**   ESTABLISH  DAILY 
TO  HOURLY  CONVERSION 
FACTOR 

I 

I 

I         16 

4 _ _ « 

I  FACTl  =  I 
I  l/PCTAOTI IH,7,ID,  I 
I  II  I 

* « 

I 
I 

I 

•*   EACH  TRIP  PURPOSE 

I 

I   NOTE   17 
*********** 

•  BEGIN  00  LOOP    » 

*  1324  IT  =  1,  6    * 

1 


I 


18 


I  PCTADT(IH,IT,IO,  I 

I        I)  =  I 

I  PCTAOTl IH, IT, ID,  I 

I       I)*FACTl  I 


END  OF  DO 
LOOP? 


*    NO 

ENO  OF  DO    * 

LOOP?    » 


I 


END  OF  03 
LOOP? 


* 
*         ENO   OF    03 
*         LOOP? 

»         ♦ 

lYES 

»          NO 

•  -+ 
•          1 

I 

.    24 

.     14 

»         CREATE    BASE    YEAR 
ANO    YEARLY     IMCREME^^T 
ARRAYS 

I 

I 

I 

23 

I  MYEARS  =  NYEARS  -  I 
I  1  I 


I 

I   N3TE   24 

*  ********** 

*  BEGIN  00  LOOP    * 

*  1328  ID  =  1,  2    • 
*********** 

I 

25.04 >I 

I   NOTE   25 

*  BEGIN  00  LOOP    * 
»   1329  IT  I  1,  7    * 

25.03— >l 

I   NOTE   26 
*********** 

*  BEGIN  00  LOOP    • 

*  1330  IH  =  1,  24   * 
*********** 

I 
25.02 >I 

I 
*»   COMPUTE  YEARLY 
INCREMENT 

I 

I 


I 

27 

I    PCTAOTl IH.IT, 

10.        I 

I                     21    =■ 

I    ipctaotiih.it 

.10,     I 

I                     21    - 

I     PCTAOTl IH, IT, 

ID,        I 

I             DI/MYEARS 

I 
I 

**       COMPUTE    BASE    YEAR 
DISTRIBUTIONS 

I 

I 

I 

I       / 

/25.01 
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->* 
I 


I  PCTAOTI IH 

IT 

ID,   I 

I         U  = 

1  PCTA,JT(  IH, 

IT 

10,   I 

I         1)  - 

I  PCTAOTI IH 

IT 

in,   I 

I          2) 

END  OF  DO 
LOOP? 


.  24 
.  27 


* 

NO 

END  OF  DO 

*-  + 

LOOP? 

* 

I 

*        * 

1 

#    * 

I 

* 

.... 

lYES 

I 

2-^  . 
26  . 

* 
*    END  OF  DO 
*    LOOP? 

«        ♦ 
*    * 

lYES 

»    NO 

*-+■ 
*    I 

.  2** 
.  25 

.... 

**   CONVERT  INITIAL 
AND  FINAL  VOLUME  TO 
BASE  YEAR  AND  YEARLY 
INCREMENT 

I 

1 
1 

05 

V0LUME(2I  = 

( VOLUME! 2)  - 

VOLUMEI 1) )/MYEARS 

VOLUME! 1)  = 

VOLUME(l)  - 

VOLUME! 2) 


I 

**      CONVERT    INITIAL 
AND    FINAL    % 
COMMERCIAL    TO    BASE 
YEAR     6    YEARLY     INCRE 
I 


>« 

I  07 

4c 

TRUCKSI2)     = 

!TRUCKS!21     - 

TRUCKS! II )/MYEARS 


TRUCKSIl)     = 

TRUCKS!!)     - 

TRUCKSI2) 

,^ 4c 

I 

I 

I 
*»   CONVERT  INITIAL 
AND  FINAL  AM.  PM. 
SPLIT  TU  BASE  YEAR  £ 
YEARLY  INCR 

I 

I 

I  08 

4c # 

SPLIT(2)     = 

ISPLITI2I     - 

SPLIT ll))/MYEARS 


SPLITIl)    = 

SPLITIl)    - 

SPLIT12) 


I 

I     09 
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I 


INTEGEK    COSTS( 7,5.8,21 

COMMON  ARHU,  CAP(5),  COSTS, 

CWT,  DV0L(2',),  HV0L(24),  ID, 

IH0UK(2'i,7)  >  ITVPE,  lY,  KP, 

LANES,  Ml,  MO,  NYEARS, 

0C0STS(65, 2) ,  PATCHFI  IJOUI ,  PATCHP ( 1000  J ,  PROJLN, 

RLOC(laOO),  SIM(7,5),  SP(5,in,  SPEEDD(24), 

SPEEDN(2<H,  SPLIT(2),  SH0RK(7),  TRUCKS(2). 

V0LUME(2),  VTRATE(5,40I  ,  Z0NELI7,',) 

COMMON/ASSUME/  AL1GN(3,6),  AACOST,  COMVOT, 

0ET0UR(7I,  OLIFE,  FU£LI2).  HRS(7,2«,4), 

H^OKMZ),  IDIR,  INC,  IPRINT, 

IWT,  JPRINT,  OCSCHL,  OCWIRK, 

QIL(2),  OVER(12,7),  PC  TAUT  (  2<,,  7,2  ,  2)  ,  P  S  I  7,  3,  3)  , 

PSIRS,  RATEI,  RLIFE,  SINOEX, 

SLIMIT(5),  TCMOVE,  TIRES(2I,  TLEVEL(7), 

WALK,  [^lOTH,  WEIGHT(10,3) 

DIMENSION  CCAPI 5,3) 

DIMENSION  INDCC(10,3) , I  BALI  7, 2, 2), Zl 24), SSI  Ml  7, 3, 5) 

DIMENSION  RANDaMI2),PERCNTI6,2,2) 

DATA  ENUVER/'  tND'/ 

DATA  CC  AP/1.  7,. 8. -f.,  0.0, 0.3,  3. 8, 1.7, .8, 6.  ,0.0, 5. 7, 3. 3,  1.7, .8, 8./ 

DATA  DSPEED/70./ 

DATA  IBAL/2a»0/ 

DATA    IN0CC/30*0/ 

STATEMENT  FUNCTION  DEFINITION:  IN3CC ( I  0, I) =10 

STATEMENT  FUNCTION  DEFINITION:  INOCCU0,2)=7 

STATEMENT  FUNCTION  DEFINITION:  INOCC ( 1 0, 3)=18 

STATEMENT  FUNCTION  DEFINITION:  IN0CC(9,1)=3 

STATEMENT  FUNCTION  DEFINITION:  I NOCC I  9 , 2 )  =  15 

STATEMENT  FUNCTION  DEFINITION:  I NOCC ( 9 , 3 )= 18 

DATA  SSIM/l.,2.,l.,3.,2.,l.,3.,l.,3.,l.,3.,3.,3.,3.,l.,3.,l., 

3.,2., 3.,3. , L., l.,a. ,12. ,3. ,10. ,1500. , l.,12. ,. 1,0.,0. ,0.,15aO., 

10.,0.,0.,12.,3.,0.,1500. ,o.,o.,i.,o.,io.,o.,o.,o.,o.,o.,o.,a., 

0.,0. ,0.,0. , 1., 0. ,10. ,0. ,0. ,100. 0,1 00. 3,1., 250. 0,100. , 100.0,10., 

100.0,2  50.0,130., I. ,1.,1., 10. ,100.0,1., 1. ,250. 0,1 00., 1., 10., l.,l. 

l.,2.,l.,l.,2.,l.,l.,l.,l.,l.,l.,2.,l.,l.,l.,2.,i.,l.,2./ 

DATA  PERC  NT/.  331,.  184, .2  8'*,. 001,. 095, .100, 

.331, .139, .284, .001,. 095,. 100, 

.331, . 189,. 284, .001,. 095,. I  00, 

.331, . 189, .284, .001, .095,. 100/ 

1  FORMAT! 12, A4) 

2  F0RMAT(3I2,24F3.3) 

3  FQRMAT(2I2,3F7.2) 

4  FORMAT! 212, 6F3. 3) 

5  FQRHAT(3F5.0) 

6  FORMAT(I2,5F10.2J 
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Od.O'i >* 

SUBROUTINE    VTME 


»»»INITI ALIZE    SCALE 
FACTORS, INTERCEPTS, 
ANJ    CCJEFFICIENTS    OF 
BENEFITS    E 


**       I     IS    THE    MAXIMUM 
ACCURATE    VALUE    JF 
TIME    FUR    WORK    TRIPS 


I 

I 

**   THE  VALUE  OF  TIME 
PER  VEHICLE 
CONVERSION  FACTOR  FOR 
WORK  TRIPS  IS 
**   THE  PASSENGERS 
PER  VEHICLE 

I 

I 

1  02 


->* 


I        FACTl 

=    OC  W  0  RK 

1 

I 

I 
I 
DO    LOOP    FOR    EACH 

PASSENGER 

CAR    TRIP 

PURPOSE 

1 

I 

I       NOTE 

0  3 

*    *    »    *    V 

V     «     «     9     « 

« 

*          BEGIN 

00    LOOP 

« 

*       IblO    IT    =    I,     i 

* 

¥      *      *      ¥      » 

«      «      *      «      4: 

9 

30.21  — 

>I 

*          COMPUTE    HOURLV 

VALUE    OF 

TIME    SAVINGS 

BETWEEN    5 

AND    l<. 

MINUTES 

I       NOTE       O', 
«    xt    *    «    «    * 


BEGIN 
lb20    J 


DO    LOOP 
=    5,     1", 


<■*       FACT2     IS 

THE 

VALUE    UF    THE 

BENEFITS 

FUNCTION    FOR 

A    TIME 

SAVINGS    J 

I 

I 
I 

05 

I     FACT2    -    B0(  IT) 
1  J*(BT( IT)    + 

1  6IT11T)*INC) 


I 
I 

««   FACTO  IS  THE 
PERCENTILE  OF 
MOTORISTS  HAVINJ  ZERO 
BENEFITS 

I 

I 


I  PACT3    = 

I  1.0/1  1. 0    + 

I     EXP( AC(  IT  )«FACT21 


»♦  FAC 
PERCENT 
MOT OR  IS 
AVERAGE 


T<,  IS  THE 
ILE  UF 

TS  HAVING  THE 
BENEF IT 

I 

I 

I  06 


FACT 

F 


(  l.O 
ACT3I/2 


I 


•  *  FAC 
AVERAGE 
ALL  MOT 
A  TIME 


I 

I 

I 
T5  IS  THE 

BENEFIT  OF 
ORISTS  HAVING 
SAVIGS 

I 

I 

I  09 


I  FACT 

I  FACT 

I  ALOGI 

I  FACT 


5  =  (1.0  -  I 
3I*(FACT2  t  I 
FACT',/!  1.0-1 
'iD/ACUT))   I 


I 
I 

♦*   VTRATE  IS  THE 
VALUE  OF  TIME  PER 
VEHICLE  IN  DOLLARS 
PER  HOUR 

I 

I  10 

I       VTRATEI  IT,  J)    =  I 

I        FACT5/10C/J*60*       I 
I  FACTl  I 


END  OF  DO 
LOOP? 


I  YES 
I 


I 
I 
I 

«    COMPUTE  THE 
HOURLY  VALUE  OF  TIME 
SAVINGS  BETWEEN  I* 
AND  I  MINUTES 

I 

I 

I 
«•   B02  IS  THE 
INTERCEPT   OF  THE 
BENEFITS  FUNCTION  FOR 
A  TIME  SAVING  0 
**   GREATER  THE  I', 
MINUTES 

I 

I 


I 


B02    =     BOI IT)     * 

l-V.OtlBTII  T)    - 

BTPdTl     * 

(BITIIT)     - 

BITP(IT) l»INC) 


I 

•*       FACT6    IS 

VALUE    OF    THE 

FUNCTION    FOR 

SAVINGS 

•*       BETWEEN    5 

»IINUTES    AT    1* 

MINUTES 

I 
I 
I 


THE 

BENEFITS 
A    TIME 

AND    14 
5 


I     FACT6    =    801  IT) 

^       I 

I        1<..5*(  BT(  IT)    + 

1 

I          BIT(IT)*INCI 

1 

1 
I 

**       FACT7     IS    THE 

PERCENTILE    OF 

MOTORISTS    HAVING 

ZERO 

BENEFITS    FOR    A    TI 

«*       SAVINGS    OF    1* 

.5 

MINUTES    USING    THE 

BENEFITS    FUNCTION 

FOR 

A    TIME 

**       SAVINGS    BETWEEN    5 

AND    14    MINUTES 
I 

1 
I 

15 

I  FACT7    =  I 

I  1.0/1 1.0    +  I 

I  EXP(AC( IT)«FACT6)  I 

I  )  I 

I 
I 

I 
**       TEMPI     IS    THE    • 
AVERAGE    BENEFIT    OF 
ALL    MOTORISTS    HAVING 
A    TIME    SAVING 
**       OF     14.5    MINUTES 
USING    THE    BENEFITS 
FUNCTION    FDR    A    TI  ME 
SAVINGS    BET 
«*       5    AND    14    MINUTES 

I 


I 


15 


MPl    =    (1.0    - 
CT7)*(FACT6 

ALOGKl    * 
FACT7)/(1    - 
CT7)  )/AC(ITl 


I 
I 
I 

»*       FACTS    IS    THE 

VALUE    OF    THE    BENEFITS 

FUNCTION    FOR    A    TIME 

SAVINGS    OF 

*•       GREATER    THEN    14 

MINUTES  AT  14.5 

MINUTES 

I 

I 


I  FACTS  =  B02  +  I 
I  14.5*(BTP(  IT)  «■  I 
I    BITP(  IT)»INC)     I 


**  FAC 
PERCENT 
HOrORIS 
BENEFIT 
**  SAV 
MINUTES 
BENEFIT 
A  TIME 
*»  OF 
14  MINU 


19  IS  THE 
ILE  OF 

TS  HAVING  ZERO 
S  FOR  A  TI 
INGS  OF  14.5 

USING  THE 
S  FUNCTION  F0« 
SAV 

GREATER  THAN 
TES 

I 

1 

I         18 


FACT9    = 
0/11.0    ♦ 
P(ACP( IT) 
FACTS) ) 


I 
I 

I 

**       TEMP2     IS    THE 
AVERAGE    BENEFIT    OF 
ALL    MOTORISTS    HAVIi^G 
A    TIME    SAVING 
«»       14.5    MINUTES 
USING    THE    BENEFITS 
FUNCTION    FOR    TIME 
SAVINGS    GREATER 
**       MINUTES 

I 

I 

I                        19 
« * 

I  TEMP2  =  (1.0  - 

I  FACT9)*(FACT8  ♦ 

I  ALOGKl  <- 

I  FACT9)/(  1  - 

I  FACT9()/ACP(IT)) 


I 

I 
TE  THE 
T  TO  BE 
THE  BENEFITS 
FOR 

SAVINGS  OF 
HAN  14 

S  THE 
T  NECESSARY 
LUES  OF  TIME 

EATER  THAN 
S  TO  MAKE 

OF  TIME  A 
S 

I 

I 

I         20 


»*   COMPU 
ADJUSTMEN 
ADDED  TO 
FUNCTION 
*«   TIME 
GREATER  T 
MINUTES 
»•   TEMP3 
ADJUSTMEN 
TO  THE  VA 
SAVINGS 
*»   OF  OR 
14  MINUTE 
THE  VALUE 
CONTINUOU 


TEMP3    =    TEMPI    -       I 
TEMP2  I 


I 
I 
I 

•  COMPUTE  THE 
HOURLY  VALUE  OF  TIME 
FOR  TIME  SAVINGS 
BETWEEN  15  AND 

*  I  MINUTES 


I 

I   NOTE   21 

*  «•***»»*«* 

*  BEGIN  DO  LOOP    * 

*  1530  J  =  15,  I    * 

*********** 


30.06 >I 

«*       FACT2    IS 

THE 

VALUE    OF    THE 

BENEFITS 

FUNCTION    FOR 

A    TIME 

SAVINGS    J 

I 

1 

/30.0I 
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29,22— >» 
I 


I  i=ACT2    =    B02    *  I 

I  J«(BTP(IT)     ♦  I 

I  aiTPI 1T)«1NC)  I 


I 
I 
I 

*»       FACTS     IS    THE 
PERCENTILE    OF 
MOTORISTS    HAVING 
BENEFITS 

I 

ZERO 

I 
I 

02 

I                   FACT3    = 
I              1.0/(1.0    ♦ 
I             EXP(ACP(ITI 
I                «FACT2)) 

1 
I 
I 
I 

I 

I 

I 
*«       FACT4     IS    THE 
PERCENTILE    OF 
MOTORISTS    HAVING 
AVERAGE    BENEFIT 

THE 

I 
I 

03 

I       FACT*    =    (l.O    ♦          1 
1                FACT3)/2                  1 

I 

I 

I 
*«       FACTS     IS    THE 
AVERAGE    BENEFIT    Of 
ALL    MOTORISTS    HAVING 
A    TIME    SAVING 

I 

I 
I 

0* 

I       FACTS    =    (1.0    - 
I       FACT3)«(FACT2    t 

I  AL0G(FACT4/ (1.0    - 

I  FACT*))/ACP(IT) ) 
I  +    TEMP3 

I 
I 
I 

**   VTRATE  IS  THE 
VALUE  OF  TIME  PER 
VEHICLE  IN  DOLLARS 
PER  HOUR 

I 


I  VTRATEdT.J)  =  I 
I  FACT5/100/J»60»  I 
I  FACTl  I 
# 4 

I 

I 
I 


END  OF  DO  *-+ 

LOOP?  *    I 

*        *  I 

*    *  I 


YES 


.  29 
.  22 


*»   THE  VALUE  OF  TIME 
PER  VEHICLE 
CONVERSION  FACTOR  FOR 
SOCIAL-RECREAT 

I 

I 


>• 

I 

»»       PERSONAL 
8USSINESS.    AND 
VACATION    TRIPS    IS 

I 

T 


I 
I 
I 

«*   THE  VALUE  OF  TIME 
PER  VEHICLE 
CONVERSION  FACTOR  FOR 
SCHOOL  TRIPS  I 
*•   THE  PASSENGERS 
PER  VEHICLE 

I 

I 

I 

*    09 


I  TRUE 
I 
I 
I 
I 
I 

I         10 
* « 

I        FACTl    =    OCSCHL  I 

9 # 

I 

>I 

I 

•  THE    HOURLY    RATE 
FUR    ALL    TIME    SAVINGS 
GREATER     THAN    I     I S    THE 
SAME    AS 

»  THE    RATE    FOR    A 

TIME    SAVINGS    OF     I 
MINUTES 

I 

I 

I       NOTE       II 
*********** 

•  BEGIN    DO   LOOP         • 


1540    J 

^    *    «    * 


I, 


*0  * 

*    *    *    * 


I 

>I 

I  12 

I       VTRATEdT.J)    =  I 

I  VTRATEI  IT, I  I  I 

1^ « 

I 
I 


1540 


13 


END  OF  DO 
LOOP? 


«    THE  HOURLY  RATE 

FOR  A  TIME  SAVINGS  OF 

LESS  THAN  5  MINUTES 

IS  THE  R 

*    OF  TIME  SAVINGS 

FOP  A  5  MINUTE  TIME 

SAVINGS 

I 

I 


>• 

I   NOTE  15 

*    BEGIN  00  LOOP  * 

«    1550  J  =  1.  5  • 

I 
>I 

I  16 

9 « 

I        VTRATEdT.J)    =  I 

I          VTRATEdT.S)  I 


END    OF    DiJ 
LOOP? 


I 

COMPUTED    GO    TO 

I 

FOR       IT 

I 

1560 

30. 

19 

1 

1570 

30. 

20 

1 

1570 

30. 

20 

1 

1560 

30. 

19 

I 

1510 

30. 

21 

IF 

I 
I 

I 
OUTSIDE    THE 

I 

RANGE 

** 

I 

INITIALUE 

SUBSCRIPT    FOR 

MAXIMUM 

ACCURATE    VALUE 

JF 

TIME    RATE    FOR 

*« 

SOCIAL-RECREAT 

I3NAL 

AND    SCHOOL    TRIPS 

30.18* — >I 

1560          I 

9 

I 
*  — 

I     ^    20 

I 

I 

I 


»*   INITIALIZE 
SUBSCRIPT  FOR  MAXIMUM 
ACCURATE  VALUE  OF 
TIME  RATE  FOR 
••   PERSONEL 
8USSINESS  AND 
VACATION  TRIPS 

30.1B*~>» 

1570    I  20 

* * 

I       I  =  30        I 

« » 

I 


+ 30.18*~>I 


END  OF  03  *-♦ 

LOOP?  «    I 

♦         •  I 

♦    •  I 


SUBROUTINE 

OPCDST 

I 

I 

I       N3TE 

22 

* 

«    •    «    * 

»    *    *    *    * 

« 

* 

BEGIN 

30   LOOP 

• 

* 

L98L    I 

=    I,    65 

* 

* 

*    «    «    * 

»    «    *    *    * 

I 

* 

I 

23 

OCOSTSI 

1,1)    =    0 

I 

I 

ocosTsi 

1  .2)     =0 

I 

YES 


29 
04 


END  OF  03 
LOOP? 


I  YES 

*  « 

•DETERMINE 

OPERATION    PARAMETER 

FOR 

65    SPEEDS 

1       NOTE 

25 

*    • 

***»«•«« 

* 

* 

BEGIN    00    L30P 

* 

* 

1400    IS    =    I.     65 

* 

*    * 

**«****• 

* 

33 

.27— >I 

26 

I 

SS    =    IS 

I 

*  — 

I 
I 
I 

-« 

*« 

4FUEL    CONSUMPTION 

IN 

GALLONS    PER 

PASSENGER    CAR    VEHIC 

LE 

OER 

HOUR 

I 
I 
I 
I       / 
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30.27— 


I 


•  »»INIT1ALUE 
TEMPORARr    VARIABLES 
I 
I 
I  01 


TEMPI 


TeMP2    =    0 


I 


I 
I 

I 
**»FUEL  CONSUMPTION 
MODEL  FOR  LEVEL 
TANGENT  SECTIONS 
I 


I 


02 


I                   TtMP3    =  I 

I          EXP(-.*8<^'V    ♦  I 

I               .0285*15)  I 

« * 

I 
I 
I 

•**FUEL    CONSUMPTION 
MODELS    FOR    POSITIVE 
GRADES 

I 

I 

1       NOTE       03 

*    BEGIN  00  LOOP    * 
»    1405  I  =  1,  6    * 

I 

I< 


04 


*       ALIGNd.I) 

«      .EQ.    0 


IFALSE 
1 


« 


=    -    .45    + 
.0278*15 


B    =     .0348    ♦ 
.0214*AL0G(SSI 


* — 


« 


I 
I 
I  . 

•••ACCUMULATE 
PRORATED  FUEL 
CONSUMPTION  FOR 
POSITIVE  GRADES 

I 

I 

I 


06 


I  TEMPI  =  TEMPI  ♦  I 
I  EXP(A  ♦  I 
I  B*I)*ALIGN(1, I)  I 
I  /PROJLN  I 
« * 

I 

I 

I 
•••ACCUMULATE 
MILEAGE  ASSOCIATED 
WITH  POSITIVE  GRADES 

1 

I 

I          07 
* * 

I  TEMPZ  =  TEMP2  ♦  I 
I     ALIGN! 1,1)       I 


I 
I 


-31. 04^ — >• 
I 
1405    •    08 


END  OF  DO 
LOOP? 


•••FUEL    CONSUMPTION 
MODELS    FOR    NEGATIVE 
GRADES 

I 

I       NOTE       09 

•  •*•**««««# 

•  BEGIN    DO    LOOP  • 

•  1406    I     =    1,     6  * 
***•*«*•*** 

I 

31.18 >I 

I 

•  10 

«  * 

•  * 

*  •       TRUE 
•       ALIGN! 2, I)  • 

•  .EQ.    0         • 


I 

I 

I 

I 

I 

I 
•••COMPUTE  FLOAT 
SPEED 

I 

I 

I         U 
# « 

I   TEMP5  =  3  ♦  7*1   I 

* * 

I 


•••INITIALIZE 
TEHP4.THE     INCREMENT 
OF    FUEL    CONSUMPTION 
ABOVE    FLOAT    SPE 

! 

I 

I  12 


I  TEMP4    =    0  I 

I' 

I 

I 

•••TEST  TO  DETERMINE 
IF  THE  FLOAT  SPEED  IS 
EXCEEDED 

I 

I 

I 

•  13 


•     IS    .LT.    TEMP5    •- 


31.13 >• 

I 

•••COMPUTE    THE 
INCREMENT    OF    FUEL 
CONSUMPTION    ABOVE 
FLOAT    SPFEO 
I 


I       TEMP4    =    TEMP3    -       I 
I           EXP(-.4844    <■  I 

I           .02a5*TEMP5)  I 

* « 

I 

1 
I 

•••COMPUTE  THE  FUFL 
CONSUMPTION 
ASSOCIATED  WITH 
SPEEDS  BELOW  FLOAT  SP 


1416 

I 

15 

1  TEMP6  = 
I 

-  l/l  1.51 
•IS) 

♦  1 

1 

1 

I 
•••ACCUMULATE 
PRORATED  FUEL 
CONSUMPTION  FOR 
POSIT IVE  AND  NEGATIVE 
GRA 

16 


I  TEMPI  =  TEMPI  t  I 
I  (TEMP6  +  I 
I  TEMP4)*ALIGN(2,  I)  I 
I  /PROJLN  I 
# « 

I 


•••ACCUMULATE 
MILEAGE  ASSOCIATED 
WITH  POSITIVE  AND 
NEGATIVE  GRADES 

I 

I 

I          17 
« « 

I   TEMP2  =  TEMP2  «•   I 
I      ALIGN(2,I)       I 


« 

•    NO 

•    END  OF  00 

•  -4- 

•    LOOP? 

*      I 

*         • 

«    * 

* 

.  .  •  ■ 

I  YES 

.  31 

.  10 

.... 

•••FUEL  CONSUMPTION 

MODELS  FOR  HORIZONTAL 

ALIGNMENT 

I   NOTE   19 
**••*•••*•• 

•  BEGIN  00  LOOP    • 

*  1407  I  =  1,  6    • 

I 
I 


->•<- 
I 


TRUE  * 
*   ALIGNI3,  I) 

•   .EO.  0 


21 

I         C  =  1 

1    A  =  -  .483  - 
I    .087*ALOGIC) 

I  B  =  EXP(-3.562  ♦ 
1        .044^1 ) 

I 

I 

I 
•••COMPUTE  EXCESS 
FUEL  CONSUMPTION 
ASSOCIATED  WITH 
HORIZONTAL  ALIGNME 

1 

I 

22 

1   TEMP4  =    EXPIA  ♦ 
I    B^IS)  -  TEMP3 

I 
I 

I 
I 
I 

•••TEST  TO  BE  SURE 
ANr  EXCESS  IS 
POSITIVE 

I 

*    23 

*    # 
*        * 
TRUE  •             • 
< *  TEMP4  .LT.  0   • 

•••ADO  EXCESS  FUEL 
CONSUMPTION 
ASSOCIATED  WITH 
HORIZONTAL  ALIGNMENT 

I 

I 

I  24 

t « 

I  TEMPI  =  TEMPI  ♦  I 
I  TEMP4*( AL IGN( 3, I)  I 
I  /PROJLN)  I 


--31.20^-->I 
I 

1407         •         25 

*  « 

t  • 

*  •NO 
•          END    OF    03  ♦ 

•  LOOP?  • 


•  • 

IVES 


266 


CHART     riTLb    -    SUBROUTINfc       UPPAPO 


31.25 >« 

I 

♦  ♦•riGLiJ  Fuel 

CONSUMPTION    FOR    ".000 
La.     l^ASSENGER    VEHICLE 

PEK  Hjuf>   ar  s 
I 
I 

lt08          I                        01 
# * 

I     ocasT( is,i ,1)   =     I 

I  TEMPI    +  1 

I       TEMP3«(Pt<0JL  <!    -       I 
1  TEMPZI/PROJLiM  I 


1 

I 
1 

*»»TlKt    WEAR    IH    .091 

INCHES    OF    HEAR    PER 

VEHICLE    PEP    HOUR 

•'♦INITIAL    TEMPORARY 

VARIASLES 

I 

I 

I 

02 

I                TEMPI     =    0 

I 

I                TEMP^    =    0 

I 

t 

I 

I 

««»TIRE    rtEAR    MOUEL 

FUR    LEVEL    TANGENT 

SECTIONS 

I 
I 

OJ 

I                   TEMPJ    = 

I 

I          EXP(-d.26b    ♦ 

I 

I       2.22t>«AL0G(  SS)  ) 

I 

***riRE 

BlEAR 

MODELS 

FOR 

POSITIVE 

I 

GRADES 

I 

NOTE       04 

*    * 

*    *    * 

*    * 

»    *    * 

* 

* 

8EGIN 

JO 

LUOP 

* 

* 

l<flO 

I     = 

It     6 

* 

*    * 

«    *    * 

*    * 
I 

*    *    * 

* 

ALIGNI 1,1) 
»       .EQ.    0 


IFALSE 

I 

I 

I 

I 

I 

I 


I 
I 

A 

= 

-    8.26 
.095*1 

+ 

I 
I 

I     B 

« 

= 

2 

23    -    . 

015*1 

I 

.6 

I 
I 

***ACCUMULATE 
PRORATEU    TIRE    HEAR 
FOR    POSITIVE    GRADES 
I 
I 


TEMPI    =    TEMPI    ♦ 

I  EXP( A    + 

0«ALOG( SSI  ) 

*ALlL,N(  1,1) 

/PROJLN) 

I 
I 

♦♦♦ACCUMULATE 
MILEAGE    ASSOCIATED 
HITH    POSITIVE    GRADES 

I 

I 

I  09 

I        TEMP2    =     TEMP2    «■        I 
I  ALIGN(1,1)  I 


END    at-    00 
LOOP? 


.     32 

.     05 


I 
I 
♦♦♦TIKE  WEAR  MODELS 
FUR  NEGATIVE  GRADES 
I 
I 
I       NOTE       11 

*  BEGIN    00    LOOP  ♦ 

♦  I'tll     I    =     1,     6  ♦ 
**»#***»•*♦ 

I 

32. lo >I 

I 

♦  12 


AL IGNl 2, I ) 

»     .Ea.   0 


♦ 

I     A 

= 

- 

8. 

26 

+    .2^1     I 

I    8 

= 

2 

.2i 

- 

.07^1        I 

Kt 

I 


♦♦♦ACCUMULATE 
PRaRATEO    TIRE    HEAR 
FUR    POSITIVE    AND 
NEGATIVE    GRADES 

I 

I 

I                        l^f 
« « 

TEMPI    =     TEMPI    t 

I  EXP( A    + 
B'ALOGISSI ) 
*ALIGN(2,I ) 

/PROJLN) 


1 


>* 

I 

•♦♦ACCUMULATE 
MILEAGE  ASSOCIATED 
WITH  POSITIVE  AND 
NEGATIVE  GRADES 

I 

I 

I  15 

« « 

I        TEMP2    =    TEMP2    ♦       I 
I  ALIGN(2,I)  I 


• 

NO 

END 

OF    DO 

♦  -+ 

LOOP? 

« 

I 

* 

* 

I 

« 

♦ 

I 

♦ 

.  ..  . 

irES 

. 

32 

I 

12 

I  

I 

I 
I 

♦  ♦♦TIRE  WEAR  MODELS 
FOR  HORIZONTAL 
ALIGNMENT 

I 

I   NOTE   17 

♦  BEGIN  00  LOOP    * 

♦  1412  I  =  1,  5    • 

♦  ♦♦♦♦♦♦^^♦^ 

I 

I< 

I  13 


I 


C  =  I 


I 


♦  ♦   TRUE 
ALIGNI 3, I)    * 

♦  .EO.  0    * 


I     A  =  -  3.  I  * 

I     .59*AL0G(C) 

I     B  =  .077  ♦ 
I       .0023*1 

^ : 

I 
I 
I 

***A0D  EXCESS  TIRE 
WEAR  ASSOCIATED  WITH 
HORIZONTAL  ALIGNMENT 

I 

I 

I         2 


I  TEMPI    =    TEMPI    ♦ 

I  lEXPIA    +    B*IS)     - 

I  TeMP3)«IALI6NI3, 

I  n/PRQJLN) 


-32.19*- 
1412 


•♦♦HOLD 
FOR  4000 
PASSENGER 
HOUR  BY  S 


1413 


r)  OF  03 
LOOP? 


IVES 

I 

I 

I 

I 

I 

I 
TIRE  WEAR 
LB. 

VEHICLE  PER 
PEED 

I 

I 

I         23 


I  OCOSTI 

I  TE 

I  TEMP3* 

I  TEMP2 


S,2.l)    =  I 

MPl    +  I 

IPROJLN    -  I 

)/PROJLN  I 


•••OIL  C 
IN  OUARTS 
PASSENGER 
PER  HOUR 


I 
I 
1 

ONSUMPTION 
PER 
CAR  VEHICLE 


CONSUMPTION 
VERTICAL 


•••OIL  CO 
MODELS  FOR 
ALIGNMENT 

♦••INITIAL  TEMPORARY 
VARIABLES 


I  TEMPI    =    0 

I 

I  TEMP2    =    0 

* 

I 

I 

•••OIL    C9NSUHPTI0N 
FOR    LEVEL    TANGENT 
SECTIONS 

r 
I 


TEMP3    = 

EXPl-3.414    ♦ 

.0242«IS) 


I       NOTE       26 
•    *••***•*•* 


BEGIN    00 

LOOP          * 

1420    1    = 

1,     6         • 

* 

«'««•••••« 

1 

33 

.05 >I 

I 

27 

TEMP4 

I 

ALIGNIl, 

1    +            I 

ALIGN!  2 

I)                I 

1 

I 

I 
I 

/ 

CHART    TITLE    -    SUBROUTINE       OPPARA 


32.27 >« 

I 


TRUE    *  * 
*    TEMP't    .EQ.    0       * 


* 
IFALSE 


.01B'4«1 


1  B    =     .0242    ♦  1 

I  .00142*1  I 

« * 


I 
I 

♦♦♦ACCUMULATE 
PRORATtU    OIL 
CONSUMPTION    FOR 
VERTICAL    ALIGNMENT 

[ 

I 

I                      03 
« « 

I  TEMPI  =  TEMPI  *  t 

I       lEXPIA  +  I 

I        S^IS))  I 

I    ♦TEMP4/PR0JLN  I 

« tL 

I 
I 
I 

♦♦♦ACCUMULATE 
MILEAGE  ASSOCIATED 
WITH  VERTICAL 
ALIGNMENT 

I 

I  04 

* « 

I  TEMP2  =  TEMP2  +  I 
I  TEMP4  I 
« « 

I 
>I 

I 
1420    ♦    05 

♦    ♦ 


♦    END  OF  00  ♦-♦ 

♦    LOOP?  «    1 

♦         ♦  I 

»    ♦  I 


lYES 

I 

I 

32 
27 

I 
I 

♦♦♦HOLD    OIL 
CONSUMPTION    FOR    4000 
LB.     PASSENGER    VEHICLE 
PER    HOUR    8Y    SP 

I 
1421          I 

06 

I       OeOSTI  IS,3,l)     =       I 
I                   TEMPI    ♦                  I 
I       TEMP3^(PR0JLN    -       I 
I          TEMP2)/PR0JLN          I 

I 
I 

♦♦♦PASSENGER  VEHICLE 
MAINTENANCE  COST  IN 
DOLLARS  PER  HOUR  FOR 
SPEED  I 

I 

I 


♦♦♦MAI 
MODEL  F 
TANGENT 


—  >♦ 

I 
NTENANCE  COST 
OR  LEVEL 
SECTIONS 

I 

I 

I  08 


EXP 
1.27 


TEMP3  =  I 
(-5.828  *  1 
S^ALOGISS))    I 


♦♦♦INI 
VAR lABL 


I 

I 
TIAL  TEMPORARY 
ES 

I 

I 

I  09 


I                TEMPI 

= 

0 

I                TEMP2 

= 

0 

I 
I 

♦♦♦MAINTENANCE    COSTS 

MODELS    FOR    POSITIVE 

GRADES 

I 

I 

I       NOTE 

10 

♦    ♦♦♦»*»** 

♦    ♦ 

♦          BEGIN    DO    LOOP 

♦ 

♦          1430    1=1,6 

♦ 

«««««#««* 

♦    * 

33.16 >l 

♦          11 

♦          ♦ 

♦                     ♦ 

♦                                ♦ 

TRUE 

♦       ALIGN(l,l) 

« 

.♦       .EQ.     0         ♦ 

« 


« 


I  A  =  5.828  -  I 
I        .014^1         I 

I  6  =  1.278  ♦  I 
I  .001*1  I 
« « 

I 
I 
I 

♦♦♦ACCUMULATE 
PRORATED  MAINTENANCE 
COSTS  FOR  POSITIVE 
GRADES 

I 

I 

1  13 

^ 4c 

TEMPI    =    TEMPI    ♦ 

£XP(-A    * 

B^ALOG(SS)) 

♦  ALIGNd.I  ) 

/PROJLN 

4c « 

I 

I 
I 

♦♦♦ACCUMULATE 
MILEAGE    ASSOCIATED 
WITH    POSITI VE    GRADES 

I 

I 


I       TEMP2    =    TEMP2    +       I 
I  ALIGNd.I)  I 


♦ 

♦          NO 

*          END    OF    DO 

*-* 

♦          LOOP? 

♦          I 

♦                     ♦ 

♦          * 

•  •  .  • 

I  YES 

.    33    . 

.    11     . 

.... 

♦♦♦MAINTENANCE 

COSTS 

MODELS    FOR    NEGATIVE 

GRADES 

I       NOTE       17 

♦    ♦♦♦***♦ 

♦    ♦    ♦ 

♦         BEGIN    00    LOOP         ♦ 

♦          1431     I     =    1, 

6          * 

♦    ♦#♦♦♦♦♦ 

♦    *    ♦ 

ALIGNI2, I) 

»       .EQ.    0 


IFALSE 

I 

I 

I 

I 
I 
I  19 

^ 


-    5.828 
.0285^l 


I  B   =    1.278    -  I 

I  .011*1  I 

4c « 


♦♦♦ACCUMULATE 
PRORATED    MAINTENANCE 
COSTS    FOR    POSITIVE 
AND    NEGATIVE    GR 
1 
I 
I  20 

t ., « 

TEMPI    =    TEMPI    * 

EXPI-4    + 

B^ALUG(SS)  I 

♦  ALIGN(2,  I  ( 

/PROJLN 


I 
I 

♦♦♦ACCUMULATE 
MILEAGE  ASSOCIATED 
WITH  POSITIVE  AND 
NEGATIVE  GRADES 

I 

I 

I         21 

« « 

I   TeMP2  =  TEMP2  ♦   I 
I      ALIGNI2.il       I 


-33.18*~>^ 

I 

1431  * 


END    OF    DD 
LOOP? 


I  YES 
I 
I 
I 

I 
I 
I 

♦  ♦♦HOLD   MAINTENANICE 
COST    FOR    4000    LB. 
PASSENGER    VEHICLE    PER 
HOUR    BY    S 


1432 


I 


23 


I       OCOSTI IS,4,l)    =       I 
I  TEMPI    +  I 

I       TEMP3^(PR0JLN    -       I 
I         TEMP2)/PR0JLN         I 

« * 

I 
I 
I 

♦♦♦DEPRECIATION  RATE 
FOR  PASSENGER  CARS 
PER  HOUR  AT  SPEED  IS 

I 

I 

I 
♦♦♦ANNUAL  PASSENGER 
MILEAGE  IS  A  FUNCTION 
OF  SPEED  IS 

I 

I 

I         24 


J 

TEMPI 
1974^1S^^ 

.489 

I 

I 

I 
I 

♦♦♦YEARS    TO 
A    FUNCTION    OF 
MILEAGE 

SCRAP     IS 

ANNUAL 

I 
I 

25 

I       TEMP2    =    47.5    -          I 
I     3.8B^AL0G(TEMPll        1 

I 
I 
I 

♦♦♦THE  HOURLY 
DEPRECIATION  RATE  OF 
PASSENGER  CARS  IS 
( 1/LIFEMILEAGE/S 

I 

I 

I  26 


I  OCOSTI IS. 4. 21  = 
I  1/((TEMP1»TEMP2) 
I         /IS) 


♦    NO 
END  OF  DO    ♦-•■ 
LOOP?    *    I 


30 
26 


268 


CHAhT  TITLE  -  SUBROUTINE   OPPARA 


33.27 

•  (♦CONVE 
PASStNGER 
UPE  RATION 
TJ   CUMPOS 


*«»CCNVE 
SPEEDS 


>* 

I 

HSION  OF 

CAR 

PARAMETERS 
ITE    COMM 

I 

I 

I 
BT  FOR  o5 

I 
I 
1   NOTE   01 


m******* 


BEGIN 
1*50  I 


00  LJJP 
S  =  I,  65 


«««*«« 


io.O't 

•  *«AQl)RE 
PARAMETER 
FUEL.  TIRE 
MAINTENAN 


I 
>l 

I 
SS    THE 
S 

S.OIL     AND 
CE 
I 


«    *    #    *    * 


I 

I       NOTE       02 
^    *    *    ^    m 


*          rfFGIN    00 

LOOP 

»       I'.Sl 

11    = 

1.     * 

*    »    »    « 

«    »    *    *    « 

36.0  3— 

->I 

«*«1NIT 

I  ATE 

THE 

VEHICLE 

WEIGHT 

COUNTER 

I 

I 

I                      I    = 

1                     I 

£ 

I 

♦•♦BRANCH 

TO 

APPROPRIATE 

OPERATION 

PARAMETER 

1 

I 

0* 

I          COMPUTED    GO    TU       I 

I                   FOR 

11                  I 

1        1  +  53 

3*. 05    I 

I        1*54 

3*. 09    I 

1        1*55 

3*. 12     I 

I        1*56 

35.01     I 

* 

.tt 

I 
I 
I 

IF    OUTSIDE    THE    RANGE 


I 


»*»FUEL  CONSUMPTION 
WEIGHT  RATIO  FACTOR 
COMPUTATION 
I 
3*.0** — >I 

1*53    I         05 

* « 

A  =  1/1 .*6  * 

.03*4* IS  - 
.00031«IS*»2) 


•*«TIRE  WEAR  WEIGHT 
RATIO  FACTOR 
COMPUTATION 

34. 0** — >* 

1*5*    I  09 

* « 

I      RW  =  .  76  +      I 
I  .061*WEIGHT(  I ,1)   I 

* • 

I 

I  10 

« « 

I    COMPUTED  GO  TO   I 
I        FOR   I         1 


1 
I 

I 
IF  OUTSIDE  THE  RANGE 
I 
I 
I  11 


***OIL  CONSUMPTION 
WEIGHT  RATIO  FACTOR 
COMPUTATION 

3*.0** — >* 

1*55    I  12 

» « 

A  =  .930  ♦ 
.003«IS 

B  =  -  .01*9  * 
.0000*«IS 


RW  =  1/(A  ♦ 

B*WEIGHT( 1,1)) 

« 


WEIGHT! 1,11 
»   .LE.  50   • 


IFALSE 

1* 

I 

RW    = 

I 

I 

3»WEIGHT(  I,  1) 

I 

I 

/(30    ^    IS) 

I 

1*52         I       NOTE 

15 

« 

**«*««*« 

*    * 

* 

CONTINUE 

« 

♦ 

*♦*♦**** 
I 
I 

I 

*    * 
16 

I 

COMPUTED    GO    TO 

, 

I 

FOR       I 

1 

I 
•   I 

I 

IF  OUTSIDE  THE  RANGE 
I 
•  I 
I  17 


.35.20. 
...  1*59 


6  =  l/( .78  * 

.U*37«IS  - 
.000*7*IS»»2I 


9 


« 


I  RW    =    EXP(-A    t  I 

I     B*( ALUGIWEIGHTI I,     I 
I  1)11)  I 


>» 

I  07 

« « 

I         COMPUTED    GO    TO       I 
I  FOR       I  I 

* 9 

I       1*57  35.09    I 

«-- — ♦ 

I 

I 

I 
IF  OUTSIDE  THE  RANGE 

I 

I 

I  08 


i 


CHART    TITLE    -    SUBROUTINE       OPPAKA 


***MA1NTENANCE    COSTS 
WEIGHT    RATIO    FACTOR 
COMPUTATION 


•  *»HOL0    PASSENGER 
CAR    WEIGHT    RATIO    IN 
FACT2 


S'l.O't* — >* 

litib  I  01 

j, if 

FACTl    =     lABSlIS 
20) 

A    =    .  12    t 
.008'.*FACT1 

b    =    .315    <■ 
.002  1>FACT1 

C    =    .00438    + 
.000023*FACTl 


I  RW    =    -    A    +  I 

I       B*welGHT( I  ,1)    -       I 
I    C*WE  IGHTI  I,  1)*»2       I 

# # 

I 
I 
I 


34.07* — >• 
1457  I 


WEIGHT! I, II 
»    .LE.     50.0    « 


IFALSE 

I 

I 

I 


I  RW    =    4.68    + 

I  .039*FACT1    t 

I  .0772*IWE1GHT( I . 
1  I)     -    50) 


I 
>I 

6.6  I       NOTE       05 


1 

I 

I 
**«UEPRECIATION 
WEIGHT    RATIO    FACTOR 
COMPUTATION 

I 

I                        06 
« 1 

I  TEMP3    =  I 

1  EXP(.163    -  I 

I     .03I»WEIGHT( I, 1) )     I 

» « 

I 

I 

I                       07 
« * 

1    COMPUTED  GO  TO   I 
I        FOR   I         I 


t 

1 

IF  OUTSIDE  THE  RANGE 
I 
1 
1  OB 


FACr2  =  RW 


***MAI 
FOR  PAS 
FACTORE 
INDEX 


IFALSE 

1 

1 

I 

I 

I 

NTENANCE  COSTS 

SENGER    CAR 

0    BY    SERVICES 


I    OCOSTdS.Il.l)    - 

1 

I       OCOSTI IS.Il.l) 

1 

1                  »SINDEX 

I 

r 
I 
I 

♦  (•♦DEPRECIATION    RATE 

FOR    PASSENGER    CAR 

CONVERTED    TO    DOLLARS 
1 

I 
1 

12 

I    OCOSTI  I S,  11,2)     = 

1 

I       OCOSTI  IS, I  1,2) 

I 

I          ♦WEIGHT(1,3) 

I 

I 

***IN1TALIZE 
TEMPORARY  VARIABLES 
FOR  THt  DEVELOPMENT 
OF  COMPOSITE 

***COMMERC lAL 
VEHICLE  OPERATION 
PARAMETER  ARRAY 
I 

>I 

1458    I  13 

« * 

I       TEMPI  =  0       I 

I       TEMP2  =  0       1 

I       TEMP4  =  0      I 
t * 

I 
I 
I 
♦♦♦INCREMENT  THE 
COMMERCIAL  VEHICLE 
WEIGHT  CLASS 
I 

I< 

1480    I  14 


I 


I 


I  +  I 


I 


I 
I 

♦♦♦TEST    FOR    LAST 
VEHICLE    CLASS 


I  .GT.  IWT 


IFALSE 

I 

I 

I 

I 

I 

I 
♦  ♦♦ACCUMULATE'  THE 
PERCENTAGE  OF 
COMMERCIAL  VEHICLES 

I 

I 

I         17 
« # 

I   TEMP2  =  TEMP2  ♦   I 
I      WEIGHT(I,2I      I 


I 


♦♦♦BRANCH  TO  THE 
APPROPRIATE  OPERATION 
PARAMETER 

I 


I 


18 


I 

COMPUTED 

GO    TO       I 

I 

FOR 

11                  I 

I 

1453 

34.05    I 

I 

1454 

34.09    I 

I 

1455 

34.12    I 

1456 

35.01    I 

IF    OUTSIDE    THE    RANGE 

I 

I 

1 
♦♦♦ACCUMULATE  A 
COMPOSITE  WEIGHT 
RATIO  FACTOR  FOR 
DEPRECIATION 

35.08 >I 

1461    I  19 

« ♦ 

I  TEMP4  -  TEMP4  *  I 
I  TEMP3^WEIGHT( 1,2)  I 
I          ♦WEIGHT(I,3)  I 

I          /WEIGHTI1,3)  I 

t « 

I 
I 

I 

♦♦♦ACCUMULATE  THE 
APPROPRIATE  OPERATION 
PARAMETER  WEIGHT 
RATIO  FACTOR 
I 
34. 08^ — >l 

1459    I  20 


I        TEMPI    =    TEMPI    ( 
I       RW^WEIGHTI 1,2) 


>« 

I 

1470    ♦    21 


♦  TRUE 
U  .NE.  4    ♦-♦ 

♦  I 
►         ♦       I 


♦♦♦CON 
MAINTEN 
A  PASSE 
COMPARA 

♦♦♦COS 
COMPOS! 
VEHICLE 
TEMPI 


IFALSE  .  36 
I  .  01 
I         

I       .  1460 
I 

I 

VERT    THE 
ANCE    COSTS   FOR 
NGER    CAR    n    A 
BLE 

TS  FOR  A 
TE  COMMERCIAL 
AND  HOLD  IN 

I 
I 
I  22 


OCOS 
♦  TE 


TEMPI    =  I 

T(IS,I1,1)  I 

MPI/TEMP2  I 


♦♦♦CON 
DFPRECI 
FOR  A  P 
TO  A  CO 

♦♦♦COS 
COMPOSI 
VEHICLE 
TEMP2 


I 
I 

T 

VERT  THE 
ATION  COSTS 
ASSENGER  CA* 
MPARABLE 
TS  FOR  A 
TE  COMMERCIAL 
AND  HOLD  IN 


I                   TEMP2    = 

I       OCOSTI  IS, I  1,21 

I          ♦TEMP4/TEHP2 

1 
I 
I 

I 

I 
♦♦♦ADD    THE 
DEPRECIATION    COSTS    TO 
MAINTENANCE    COSTS 
ARRAY    FOR    PASSENGE 
♦♦♦AND    ADJUST    FOR 
ACTUAL    PASSENGER    CAR 
WEIGHT 

1 

1 

24 

1    OCOSTIIS, 11,1)    = 
1       OCOSTI  IS, 11,1) 
1               ♦FACT2    <■ 
I       OCOSTI IS, 1 1,2) 

I 
1 
1 
♦♦♦ESTABLISH    THE 
COMPOSITE    COMMERCIAL 
VEHICLE    MAINTENANCE 
AND    OEPRECI 
♦♦♦COSTS    ARRAY 

I 

1 

25 

1    OCOSTIIS,  11,2)    =       I 
1          TEMPI    +    TEMP2          I 
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««*CUNVERT    The 
OPERATIONAL    PARAMETER 
FOR    A    PASSEMGER    CAR 
TJ    A    COMPARA 

»«»iJPERATIUNAL 
PARAMETER    FOR    A 
CO.MPQSITE    COMMERCIAL 
VEHICLE 

35.21 >« 

1460         I                       01 
* * 

I    OCOSTd  S,  II  ,21    =       I 
I       OCCJSTI  IS,  11,11  I 

I  *TEMP1/TEMP2  I 


1 
I 
I 

**»FOUR    KIP 
PASSErjGEli    CAR 
AOJUSTEO    FOR 
PASSENGER    CAR 

ICTUAL 
WEIGHT 

I 

0 

I    OCOSTdS.Il.l)     = 
I       OCOSTdS.Il.l) 
I                  •FACT2 

I 
35.25— >I 

IfSl          » 

03 

END    OF    00 
LOOP? 


34 
03 


END    JF    00 

«-  + 

LOOP?          < 

1 

*                     * 

I 

*          * 

I 

* 

lYES 

.     34 

.    02 

***C0i4VERT    THE 
OPERATIONAL 
PARAMETERS    FROM    UNITS 
PER    VEHICLE    PER    HuUR 

»«*COSTS    PER     lOJO 
VEHICLES    PER    HOUR    FOR 
ALL    OPERATIONAL 
PARAMETERS 

I 

I 

I       NOTE       05 


*    * 


♦    » 


BEGIN    00    LOOP 
I'lQG     IS    =     1,    65 


I 


OCOSTStIS,!)     = 

OCnSTSlIS,!)     + 

OCOSTI IS,1, I) 

•  FUELI  1)»1000 

acosTsiis.i)  = 

OCOSTSdS.ll     ■•• 

OCOSTI  I  S,2,  1) 

tTIRES(  ii»iaoo 


I 


I 


ENIJ    OF    00 
LOOP? 


OCOSTSI IS.l)    = 

OCOSTSdS.l)     <■ 

OCOSTI I S.3, 1) 

*OILl 1)*1000 

OCOSTSdS.l)     = 

OCOSTSdS.l)     + 

OCOSTI  I  5,4,  1) 

«1000 


0C0STSIIS,2)    = 

0C0STSdS,2)     <• 

0C0ST(IS,1,2) 

•FUEL(2)«1000 

0CUSTSIIS.2)    = 

0C0STSIIS,2)     ♦ 

OCOSIdS.2.2) 

»TIRES(2»»1000 


I 
I 

I                       09 

I       QCOSTSIIS 

2)    =         1 

I       QCOSTSIIS 

2)    *         I 

I          OCOSTdS 

3,2)          1 

I          »OIL(2)*1000            I 

I       OCOSTSdS 

2)    =         I 

I       OCOSTSdS 

2)    +          I 

I          OCOSTIIS 

4,2)          I 

I                    »1000                    I 

I 

11 

I               TEMPI    =    0 

I 

I               TEMP2    =    0 

4 

I 

— * 

I       NOTE  12 

»    BEGIN  DO  LOOP  * 

*   1495  I  =  2,  IWT  » 

I 


—36.12*  —  >* 

I  13 

« # 

I       TEMPI    =    TEMPI    +       1 
I  l<EIGHTd,l)  1 

I  ♦HElGHTd,2)  I 

I       TEHP2    =    TEMP2    ♦       I 
I  WEIGHTII,2)  I 

* « 


END    OF    00 
LOOP? 


lYES 
I 

I 
I 
I 

I 
I 
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/   RPRINT 

/ 

.05 >I 

01 

/ 

/ 

/  WRITt  TO  DEV   / 
/        MU        / 
/   VIA  FORMAT    / 
/        10         / 

I 
I 
I  02 

/  / 

/  WRITE  TO  OEV   / 
/      'MO        / 
/   VIA  FORMAT    / 
/        111        / 


03 


/  WRI TE  TO  OEV   / 
/        MO        / 
/   VIA  FORMAT    / 
/       44         / 
/  FROM  THE  LIST  / 

I 

I 

I   NOTE   04 

*  LIST  =  (J, J  =    * 

*  1,7)  * 
*********** 

1 
I 
I  05 

/  / 

/  KRITE  TU  OEV   / 
/        MO        / 
/   VIA  FORMAT    / 
/        45         / 


I 

I  NOTE  06 
*********** 
«    BEGIN  DO  LOOP    « 

*  1925  IH  =  I,  24   * 
*********** 

>I 

I         07 

/  WRITE  TO  DEV   / 
/        MO        / 
/   VIA  FORMAT    / 
/        107        / 
/  FROM  THE  LIST  / 

I 
I 

I  NOTE  08 
*********** 

*  LIST  =  IH,      * 
»  I IHOUR( IH,J) ,J  =   * 

*  1,7)  * 
*********** 

I 
I 
I 
1925    »    09 


END  OF  UO 
LOOP? 


->» 
I 


10 

/  / 

/  WR ITE  TO  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        10         / 

I 
I 
I  II 

/  / 

/  WRITE  TO  DEV   / 
/        MU         / 
/   VIA  FORMAT    / 
/        112       / 

I 
I 
I         12 

/  / 

/  WRITE  TO  OEV   / 
/       MO         / 
/   VIA  FORMAT    / 
/        109       / 


I 


I   NOTE   13 
«««*«»«**»* 

*  BEGIN  00  LOOP    ♦ 

*  1980  IW  =  I  ,     « 

*  1000,  20       ♦ 
*********** 

I 

>1 

I  14 

/  WRITE  TO  DEV   / 
/       MO         / 
/   VIA  FORMAT    / 
/        108        / 
/  FROM  THE  LIST  / 


,-        - 

I 

1   NOTE 

15 

********* 

*  * 

»     LIST  =  IW, 

*     PATCHF(IW), 

•     PATCHP(IW), 

«      RLOC(IW) 

********* 

I 

*  * 

I 
1980    *    16 

*    * 

*        * 

NO   *             * 
*    grgn  OF  DO 

* 

*    LOOP?    * 

«        « 

*    ♦ 

* 

I  YES 


/ 

/  WRITE  TO 
/        MO 
/   VIA  FORMAT 
/        10 

/ 
DEV   / 
/ 
/ 
/ 

I 
I 
1          18 

/  / 

/  WRITE  TO  OEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        11         / 


I         19 

/  / 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/        12         / 

I 

I         20 

/  WRITE  TO  OEV   / 
/        MO        / 
/   VIA  FORMAT    / 
/       13        / 
/  FROM  THE  LIST  / 


I 
I 

1   NOTE   21 

* 

********** 

* 

LIST  =        * 

« 

IROA0(J,KP),J  =   * 

* 

1,2)          • 

* 

********** 

1 

I 

1         22 

/  WRITE  TO  DEV   / 
/       MO        / 
I       VIA  FORMAT    / 
/        14        / 
/  FROM  THE  LIST  / 


1 
1 

1   NOTE 

23 

*««•**** 

*  * 

LIST  = 

(PAVEdTYPE.J) 

J  =  1,3) 

******** 

*  * 

I 


24 


/  WRITE  TO  DEV   / 
/        MO        / 
/   VIA  FORMAT    / 
/       15        / 
/  FROM  THE  LIST  / 


I   NOTE 

25 

•  *•*****« 

*  * 

*    LIST  =  PROJLN 

* 

********* 

*  « 

26 

/    WRITE    TO    OEV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  .16  / 

/    FROM    THE    LIST    / 


I 
I 

I   NOTE 

27 

********* 

*  * 

»    LIST  =  WIDTH 

* 

********* 

*  « 

I 
I 

28 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/        17         / 
/  FROM  THE  LIST  / 


I   NOTE 

29 

^ 

* 

* 

*  « 

*  *  *  « 

«  « 

« 

LIST  = 

=  NYEARS 

* 

* 

* 

» 

«  * 

«  «  *  « 

«  * 

>* 

I  30 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/        18        / 
/  FROM  THE  LIST  / 

I 

I       NOTE       31 

•  *****•***• 
»  LIST  =  OLIFE  » 
*********** 

I 
I 
I  32 

/  WRITE  TO  DEV   / 
/       HO        / 
/   VIA  FORMAT    / 
/       19        I 
/    FROM  THE  LIST  / 

I 

I 

I       N3TE       33 

*********** 

•  LIST   =    RLIFE  * 

*********** 

I 
I 
I  34 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       20        / 
/  FROM  THE  LIST  / 

I 

I 

I  NOTE  35 
*********** 
»  LIST  =  PSIRS  * 
*********** 

I 

I 

I         36 

/  / 

/  WRITE  TO  OEV   / 
/       HO        / 
/   VIA  FORMAT    / 
/        21         / 

I 

I 

I         37 

* * 

I  ITEST  =  I 
I  (VOLUMEIl)  ♦  I 
I   VOLUME(2))»1000   I 

* * 

I 
I 

I         38 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       22        / 
/  FROM  THE  LIST  / 

I 

I  NOTE  39 
*********** 
«    LIST  =  ITEST     • 

*********** 

I 

I 

I  40 

* * 

I                  TEMPI    =  I 

I             TRUCKS(l)     ♦  I 

I                TRUCKSI2I  I 

* * 

I 
I 

I 

I       / 

/40.01 
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39.40 >» 


1 


01 


/     WRITE    TU    DEV       / 
/  MO  / 

/       VIA    FJKMAT  / 

/  2J  / 

/    FROM    THE    LIST    / 


I 

I 

I       NOTE 

02 

* 

4 

# 

*      V 

*    *    *    » 

#    4 

« 

LIST 

=     TEMPI 

* 

# 

* 

*    * 

*    *     *    * 

I 
I 

*    * 
03 

TEMP2  =       I 

SPLIT(l)  t      I 

SPLIT  12)        I 


0<. 


/  WRITt  TO  DEV   / 
/       MU        / 
/   VIA  FORMAT    / 
/       2*        / 
/  FROM  THE  LIST  / 


1 
I 

I   NOTE   05 

*    LIST  =  TEMP2     * 

I 

I 

I         Oo 

« 1 

I  ITtST  =  ITtST  +   I 

I  VnLUME<2)  I 

I  ♦d'lYEARS  -  I 

1  1)*100J  I 


1 
I 
I 

07 

/    WRITE    TO    DEV 
/                  ,M0 
/       VIA    FORMAT 
/                  25                     / 
/    FKQM    THE    LIST    / 

/ 

/ 

/ 

* 

I 

I        NOTE 
LIST    =     ITEST 

I 
1 

03 

#  * 

*  ♦ 
09 

I  TEMPI  =  TEMPI  *■  I 
I  TRUCKS(2)  I 
I    «(NYEARS  -  I)    I 


1 


10 


/  HRl TF  TO  DtV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       26        / 
/  FROM  THE  LIST  / 

I 
I 

I   NOTE   11 

*    LIST  =  TEMPI     « 

I 

I 


>» 

I         12 

« 4c 

I  TEMP2  =  TEMP2  +  I 
1  SPLIT(2)  I 
I  ilNYEARS  -  1)  I 
Xc « 

I 

I 

I  13 

/    WRITE    TO    UEV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  27  / 

/    FROM    THE    LIST    / 

I 
I 

I       NOTE        14 
*********** 

*  LIST  =  TEMP2  * 
*********** 

I 

I                        15 
* * 

1           I     =    LANES    +     1  I 

I  I 

I                   TEMPI    =  I 

I             CAP<I)«1000  I 

# # 

I 
I 

I  16 

/    WRITE    TO    OEV       / 
/■  Mfl  / 

/       VIA    FORMAT  / 

/  26  / 

I    FROM    THE    LIST    / 

I 
I 

I       NOTE       17 
*********** 

*  LI  ST  =  TEMPI  * 
*********** 

I 
I 
I  18 

* * 

I  TEMPI    =  I 

I  CAP(1)*1000  I 

I 
I 
I  19 

/    WRITE     TO    UEV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  29  / 

/    FROM    THE    LIST    / 

I 

I       NOTE       20 
*********** 

*  LIST  =  TEMPI  • 
*********** 

I 

I 

I  21 

* * 

I  COMPUTEU    GO    TO       I 

1  FUR      KP  I 

* « 

I        1900  40.29    I 

* « 

1 

I 

IF  OUTSIDE  THE  RANGE 
I 
1 
I         22 

* * 

I                   TEMPI    =  I 

I             CAP{2I»1000  1 

* « 

I 
I 


I 


23 


/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       30        / 
/  FROM  THE  LIST  / 

1 
I 

I  NOTE  24 
*********** 
«  LIST    =    TEMPI  * 

*********** 


I  COMPUTED    GO    TO       I 

I  FOR       KP  I 


I        1900 
I        1900 


40.29    I 
40.29     I 


IF    OUTSIDE    THE    RANGE 


TEMPI  = 
CAP(3I«1000 


27 


/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       31        / 
/  FROM  THE  LI  ST  / 

1 

I 

I   NOTE   28 
*********** 

*  LIST  =  TEMPI     « 
*********** 

40.21* — >l 

1900    I   NOTE   29 
*********** 

*  CONTINUE       ♦ 
*********** 

I 

I 

I  30 

* * 

I       TEMPI  =       I 
I   CAP(LANES) *1000   I 


31 


/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       82        / 
/  FROM  THE  LIST  / 

I 

I  NOTE  32 
*********** 
•  LIST  =  TEMPI  • 
*********** 

I 

I 

I  33 
* * 

I        TEMPI  =       I 
I   0ET0UR(5)*1000    1 


I 


34 


/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       83        / 
/  FROM  THE  LIST  / 


I 


I  NOTE  35 
*********** 
*  LIST  =  TEMPI  * 
*********** 

I 

I 

I  36 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       95        / 
/  FROM  THE  LIST  / 


I 

1 

I       NDTE       37 

* 

********** 

* 

LIST    =    OETOURIl)       * 

* 

********** 
I 

I 

I                        38 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       96        / 
/  FROM  THE  LIST  / 


I 

I  NOTE  39 
*********** 
•    LIST    =    DET0UR(2I        * 

*********** 


40 


/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       97        / 
/  FROM  THE  LIST  / 

I 
I 

I  NOTE  41 
*********** 
*    LIST    =    DET0UR(3I       • 

*********** 


42 


/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       98        / 
/  FROM  THE  LIST  / 


I 

I 

NOTE 

43 

* 

* 

*    * 

•    * 

*    *    * 

*    * 

* 

LIST 

=    DET0UR(41 

• 

* 

* 

*    * 

*    * 

1 
1 

*    *    * 

*    * 
44 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       100       / 
/  FROM  THE  LIST  / 

I 
I 
I 

I   / 
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'tO.'t't >* 

I       NOTE       01 

*    LIST    =    LIET0UR(6)       * 

I 

I  02 


->« 


/ 

WRITE  TO  DEV 

/ 

/ 

MO 

/ 

/   V 

[A  FORMAT 

/ 

1 

101        / 

/ 

FROM 

THE  LIST  / 

I   NOTE 

03 

^ 

*  * 

*«*#♦* 

*  * 

<■ 

LIST 

=  0ET0UR(7) 

* 

* 

*  « 

****** 
I 
I 
1 

*  * 
0* 

/  WRITE  TO  DEV   / 
/        MO        / 
/   VIA  FORMAT    / 
/        106        / 
/  FKOM  THE  LIST  / 


I 
I 

1   MOTE   05 

* 

********** 

# 

LIST  -         ■> 

* 

SLIMITILANES  t  1)  * 

* 

********** 

I 

1           06 

/  WRITE  TO  OEV   / 
/        MO        / 
/   VIA  FORMAT    / 
/        102        / 
/  FROM  THE  LI  ST  / 


I 

I  NOTE  07 
*********** 
*  LIST  =  SLIMITI II  » 
*********** 

I 

I 

I  08 

/    WRITE    TO    DEV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  103  / 

/    FROM    THE    LIST    / 

I 
1 

1  NOTE  09 
*********** 
»  LIST  =  SLIMIT(2I  * 
*********** 

I 

I 

I  10 

/  WRITE  TO  OEV   / 
/        MO        / 
/   VIA  FORMAT    / 
/        104       / 
/  FROM  THE  LIST  / 


I 

I  NOTE  11 
*********** 
*  LIST  =  SLIMIT(3)  * 
*********** 


1 


12 


/  WRITt  TO  OEV   / 
/       MO         / 
/   VIA  FORMAT    / 
/        105        / 
/  FROM  THE  LIST  / 

I 

I 

1  NOTE  13 
*********** 
»  LIST  =  SL IMITI*)  « 
*********** 

I 

I 

I  14 

/  WRITE  TO  DEV   / 
/       MO         / 
/   VIA  FORMAT    / 
/        33         / 
/  FROM  THE  LIST  / 


I 
1 

I   NOTE   15 

* 

********** 

* 

LIST  =  CWT      * 

* 

********** 

I 

I 

I          16 

I 

ITEST  =        1 

I 

ARHn*1000000     1 

I 

I          17 

/  WRITE  TO  OEV   / 

/       MO         / 

/   VIA  FORMAT    / 

/       34        / 

/ 

FROM  THE  LIST  / 

I   NOTE   18 

* 

********** 

* 

LIST  =  ITEST     * 

* 

********** 

I          19 

/  WRITE  TU  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        10         / 

I 
I 
I  20 

/  / 

/  WRITE  TO  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        113       / 


I 


I         21 


I    N  =  LANES  t  1    I 


22 


I    WRITE  TU  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        88         / 
/  FROM  THE  LIST  / 


I 


I  NOTE  23 
*********** 

*  LIST  =  (J, J  =  « 
■>■  l.NI  * 
*********** 

I 
I 
I  24 

/  / 

/    WRITE    TO    OEV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  1)7  / 

I 

I 

I  NOTE  25 
*********** 
»  BEGIN  00  LOOP  * 
»  1950  I  =  1,  11  * 
*********** 

>I 

I  26 

* * 

I   VC  =  (  I  -  11*. 1   I 

* * 

I 
1 
1950    I  27 

/  WRITE  TO  OEV   / 
/       MO         / 
/   VIA  FORMAT    / 
/        110        / 
/  FROM  THE  LIST  / 

1 
I 

I  NOTE  28 
*********** 

♦  LIST  =  VC.       * 

•  (SP( J,I ) , J  =  l.NI  * 
*********** 

I 
I 
I 
*    29 


END  OF  00 
LOOP? 


30 

t  I 

I    WRITE  TO  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        10         / 

I 
I 
I  31 

/  / 

/  WRITE  TO  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        35         / 


/  WRITE  TO  DEV   / 
/        MO        / 
/   VIA  FORMAT    / 
I  36         / 

I 
I 


33 

/ 


/  WRITE  TO  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        37         / 

I 

I 

I  34 

/  / 

/  WRITE  TO  OEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        38         / 

I 
I 
I         35 


/  WRITE  TO  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        39         / 

I 

I   N3TE   36 
*********** 

*  BEGIN  DO  LOOP    * 

*  1910  IH  =  1,  24   * 

*********** 

I 

>I 

I  37 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/        40         / 
/  FROM  THE  LIST  / 

I 

I 

I   N3TE   38 
*********** 

*  LIST  =  IH,       * 

*  (PCTADTI  IH,  J,  1,  1)  * 

*  ,J  =  1,71,       * 

*  IPCTADTI IH, J, 2, 1)  * 

*  ,  J  =  1.  71       » 
***«****««* 

I 
I 
I 
1910    »    39 


END  OF  03 
LOOP? 


/  WRITE  TO  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        41         / 


I 

1   N3TE   41 

* 

«»♦*»«*»»« 

* 

BEGIN  DO  LOOP    * 

* 

1911  IH  =  I.  24   * 

* 

********** 

I 

I 

I   / 
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'Vl.'.t*  —  >» 


I 


01 


/    "Kl  TE     TO    OtV       / 
/  M3  / 

/       VIA    FiJRMAT  / 

/  VO  / 

/    FROM    THE    LIST    / 

I 
I 
1       NOTE       02 

•  LIST     =    IH,  • 

•  (PCTAOT(  IH,  J,  1,  2)     * 

•  .J  =  I ,7) ,  » 
»  I PCTADTI IH,J,2,2)  * 
»                ,J    =    1,7)  * 

I 

I 
I 

19U       »       aj 
*       • 


NO 


END    OF    DO  ♦ 

»  LOOP?  » 


lYES 

I 

I 

I 

I 

I 

I 


/ 

/   kpite  to 

/                      MU 
/       VIA    FORMAT 
/                   10 

/ 

OEV       / 
/ 
/ 
/ 

I 
I 
1                        05 

/    WRITE    TO    JEV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  11  / 


I 


/  WRITE  TU  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       *2        / 

I 
I 

I         07 

/  / 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 


1 
1 
I 

03 

1 

1 

/    WRITE    TO 
/                  HO 
/       VIA    FORMAT 

FROM    THE    LIST 

JEV 

/ 
/ 

TE 

* 

/ 

/ 

/ 

* 

» 
« 

I 

1       NO 

«      «      *      «       9       «      * 

LIST    =     (J, J 
1,7) 
******* 

I 
I 

09 

»  * 
* 
* 

*    * 

I  10 

/  / 

/  WRITE  TO  UEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/  45        / 

1 
I 


I 


11 


/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT  ■   / 
/       46        / 
/  FROM  THE  LIST  / 

I 
I 

I   NOTE   12 
*********** 

*  LIST  =        t 

*  (0VER(2, J) , J  =    * 

*  1,7)         » 
*********** 

I 
1 

I  13 

/    WRITE    TO    OEV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  47  / 

/    FROM    THE    LIST    / 


I       NOTE 

14 

******** 

*    * 

LIST    = 

(OVERO,  J)  ,  J    = 

1,7) 

******** 

*     * 
15 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       48        / 
/  FROM  THE  LIST  / 

I 

I 

I   NOTE   16 
*********** 

•  LI  ST  =        * 

•  (SWURKIJ),J  =    « 

•  1,7)         * 
*********** 

I 
I 
I  17 

/  WRITE  TU  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       49        / 
/  FROM  THE  LIST  / 


I 

I       NOTE 

IB 

* 

******* 

* 

«    * 

* 

LIST    = 

* 

* 

(0VER(4, J) , J 

= 

* 

* 

1,7) 

* 

* 

******* 

I 
I 

*    * 
19 

/    WRITE     TO 

JEV 

1 

/                    MO 

1 

/        VIA    FORMAT 

1 

1                  50 

/ 

/ 

FROM    THE    LIST 

/ 

I 

>• 

1   K'lTE   20 
*********** 

*  LIST  =        » 

*  (0VER(6, J) ,J  =    » 

*  1,71         » 
*********** 

I 
I 
I         21 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       51        / 
/  FROM  THE  LIST  / 


i 

I 

I       NOTE 

11 

******** 

*    * 

LIST    = 

(0VER(5, J)  ,J    = 

1,7) 

******** 

I 

I 

*    * 
23 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       52        / 
/  FROM  THE  LIST  / 

I 

I 

I   NOTE   2 
********** 

*  LIST  = 

♦  (0VER(7,J1 ,J  = 

•  1,7) 
********** 

I 
I 
I         25 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       53        / 
/  FROM  THE  LIST  / 


1 

I       NOTE 

26 

*»*»*»*** 

«    * 

*                  LIST    = 

*       10VER(8,J),J    = 

*                     1,7) 

********* 

I 

*    * 

I 
I 

27 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       54        / 
/  FROM  THE  LIST  / 


I 

I       NOTE 

28 

******** 

*    * 

LIST    = 

* 

(0VER(9,J),J    = 

* 

1.7) 

* 

******** 

I 
I 
I 

*    * 
29 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       55        / 
/  FROM  THE  LIST  / 

I 


1       NOTE       30 

«****•***« 

LIST    =                   * 

(0VER(11.J),J   >=      * 

1.71                      * 

I 

I 

I                       31 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       56        / 

/  FROM  THE  LIST  / 


I       N3TE 

32 

*    * 

LIST    = 

* 

(OVER(l.J).J    = 

* 

1.7) 

* 

******* 

«    * 

33 


/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       57        / 
/  FROM  THE  LIST  / 


I 

I       NOTE       34 

********** 

LIST    =                   • 

(OVERUO.Jl.J   =       » 

1.71                      * 

I 

I                      35 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       89        / 
/  FROM  THE  LIST  / 


I 

I  NDTE  36 
*********** 
»  LIST    =  » 

•  I0VER(12. lAl.IA    -    • 

*  1.7)  * 
*********** 

I 
I 
I  37 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       90        / 
/  FROM  THE  LIST  / 


I 
I 

I      NOTE      38 
********** 

LIST    =                     * 

ISIMIIA.ll.IA    =       * 

1,7)                       * 

**••****** 

I 

I 

I                        39 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       91        / 
/  FROM  THE  LIST  / 

I 

I 
I 
I   / 
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42.39 >» 

I       NOTE       01 

*  LIST     =  * 

*  ISIMd  A,2)  ,IA    =       » 
»  1.7)  * 

I 

I 

I  02 

/  WRITE  TO  UEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       92        / 
/  FROM  THE  LIST  / 


I 
I 

1       NOTE       03 

* 

***«*♦**♦* 

« 

LIST    =                     * 

* 

(S1M(  1  A,3I  ilA    =       « 

>(< 

1,7)                        * 

* 

I 

I 

I                        04 

/    WRITE    TO    UEV       / 
/  MO  / 

/       VIA    FOkflAT  / 

/  93  / 

/    FROM    THE    LIST    / 


I 


1       NOTE       05 

»  LIST    =  * 

«        (SIM( 1A,4)  ,1  A    =       » 
*  1.7)  » 

I 
I 

I  06 

•      /    WRITE    TO    OEV       / 

/  MO  / 

/       VIA    FORMAT  / 

/  94  / 

/    FROM    THE    LIST    / 


I 

I 

I       NOTE      07 

* 

********** 

« 

LIST    =                    » 

* 

(SIM(IA,5) ,1A    =       • 

* 

1.7)                        * 

* 

********** 

I 

I                        OB 

/                                          / 

/    WRITE    TO    DEV       / 
/•  MO  / 

/       VIA    FORMAT  / 

/  58  / 


1 


09 


/  WRITE  TO  UEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       59        / 
/  FROM  THE  LIST  / 

I 
I 

I   NOTE   10 
*********** 

*    LIST  =  TCMQVE    * 

*********** 

I 


>* 

I  11 

/    WRITE    TO    UtV       / 
/MO  / 

/       VIA    FORMAT  / 

/  60  / 

/    FROM    THE    LIST    / 

1 

I 

I  NOTE  12 
*********** 
«  LIST  =  WALK  * 
*********** 


/ 

/    WRITE    TO 
/                  MO 
/       VIA    FORMAT 
/                  61 

1 
OEV       / 
/ 
/ 
1 

1 
I 
I 

14 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       62        / 


I 

I 

15 

/ 

/ 

/    WRITE    TO 

OEV 

/ 

/                  MO 

/ 

/ 

VIA    FORMAT 

/ 

/ 

63 

/ 

/  WRITE  TO  JEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       64        / 

I 
I 

I   NOTE   17 
*********** 

*  BEGIN  DO  LOOP    * 

*  1920  lA  =  1,  7    * 
*********** 

I 

I< 

1  IB 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       65        / 
/  FROM  THE  LIST  / 


I 
I 
I       NOTE        19 

*    *   *    * 

****** 

LIST 

=     lA,                * 

(PS(  lA 

1  ..J  )  ,  J    =       * 

1 

3).                     * 

IPSdA 

2. J), J    =       * 

1 

3).                     * 

(PSl  lA 

3, J). J    =       * 

1 

3)                      * 

*    *    *    * 

****** 

I 
I 

1920    *    20 

*  * 

*  * 
NO   *  * 

*    END  OF  DO    * 

*    LOOP?    * 

*  * 

*  * 
* 
lYES 


21 

/  / 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       10        / 

I 
I 

I        22 

/  / 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       66        / 


1 
I 

I                        23 

/ 

/    WRITE    TO 
/                  MO 
/       VIA    FORMAT 
/                  57 

/ 
OEV       / 
/ 
/ 
/ 

1 

I 

I                        24 

/ 

/ 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       68        / 


25 


/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       69        / 
/  FROM  THE  LIST  / 


I 
1 
1       NOTE       26 

* 

•  »  *   « 

****** 

* 

LIST    = 

FUEL(l),      • 

* 

OILIl), 

TIRES(l)       * 

* 

*    *    #    * 

****** 

I 

I 

I                      27 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       70        / 
/  FROM  THE  LIST  / 


I 


I  NOTE  28 
*********** 
*  LIST  =  FUEL(2) .  * 
«    0IL12).    TIRESI2)       * 

*********** 
I 
I 


>• 

I         29 

/  / 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       71        / 

I 
I 
I         30 

/  / 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       72        / 

I 
I 
I        31 

/  / 

/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       73        / 

I 
I 
I         32 

/  / 

/  WRITE  TO  DEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       74        / 

I 
I 

I  NOTE  33 
*********** 
»  BEGIN  DO  LOOP  * 
*   1930  I  =  I,  32    * 

*********** 


I     IS  =  I  +  32 


35 


/  WRITE  TO  OEV   / 
/       MO        / 
/   VIA  FORMAT    / 
/       75        / 
/  FROM  THE  LIST  / 


I 
I 

I       N3TE 

36 

********* 

*    * 

*              LIST    =    I. 

*    (OCOSTSII.JI.J    = 

*               1.2).     IS, 

*    lOCOSTSdS.JI.J 

=    * 

*                   1.2) 

********* 

I 

*    * 

I 
1930         *         37 

*         * 

*                   * 

NO       »                                * 
*          END    OF    00 

* 

*    LOOP?    * 

*        * 

*    * 

« 

lYES 
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I 

01 

/ 

/    fIRITE    TO 
/                  MO 
/       VIA    FORMAT 
/                   10 

/ 
CJEV       / 
/ 
/ 

/ 

I 
I 
I                      02 

/    URITE    Tn    DEV       / 
/  .10  / 

/        VIA    F3KMAT  / 


I  03 

/    WRl  TE    TO    UtV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  84  / 

/    FROM    THE    LIST/ 


I 
I 
I 

NOTE       O't 

»   *   »   »   « 

if 

*    «    e    #    * 

•             LIST 

= 

INC             • 

*    *    «    *    w 

* 
I 
I 
1 

*    *    «    «    « 
05 

/    WRITE    TO    UEV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  B5  / 

/    FROM    THE    LIST    / 

I 

I       NOTE       06 

*  LIST    =    OCWORK  • 

I 
t 

I  07 

/    WRITE    TO    OtV       / 
/  MO  / 

/       VIA    FORMAT  / 

/  ib  / 

I    FROM    THE    LIST    / 


I 

I 

1       NOTE 

08 

*«*#**« 

♦    « 

t    « 

*          LIST    =    DCSCHL 

» 

*    *    «    ^t    «    *    « 

1 
I 

«    * 

09 

/ 

/ 

/    WRITE    TO 

OEV 

/ 

/                  MO 

/ 

/       VIA    FORMAT          / 

/                  76 

/ 

I 

10 

/ 

/ 

/    WRITE    TO    UEV       / 
/  MO  / 

/       VIA    FORMAT  / 

'  77  / 

I 
I 


I         U 

/  / 

/  WRITE  TO  DEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        78         / 


I 
I 

I                         12 

/ 

/    WRITE    TO 
/                  MO 
/       VIA    FORMAT 
/                  79 

/ 

OEV       / 
/ 
/ 
/ 

I 
I 
I                        13 

/ 

/ 

/  WRITE  TO  OEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        80         / 

I 
I 

1   NOTE   14 

«    BEGIN  DO  LOOP    » 
*   1940  I  =  1,  20    * 

I 
>l 

I  15 


1      IT  =  I  t  20     I 

# # 

1 

I  16 

/  WRITE  TO  OEV   / 
/        MO         / 
/   VIA  FORMAT    / 
/        81         / 
/  FROM  THE  LIST  / 


I 


I   NOTE   17 
«*<[«*«««**« 

*  LIST  =1,       * 

*  I VTRATE(J,I) ,J  =  • 
»       1,5),  IT,  « 

*  ( VTRATEI J,IT) ,J  =  4 
«         1,5)  * 

I 
I 
I 

1940    •    18 


END  OF  DO 
LOOP? 


I  YES 


277 


CHAKT  TITLfc  -  SUBROUTINE   YEAR 


YEAR 


I 

02.07 >I 

I       NOTE       01 

*  BEGIN    DO    LOOP  * 

*  2001     I    =     I,     b  • 

I 
>1 

I  02 

« « 

I         TOTALAI 11=0         ( 
* « 

I 

I 
I 

2001         *         03 


END    OF    DO 
LOOP? 


« 1 

I  PSIASN    =    "t.S  I 

I  RAGE    =    0  I 

I  AAXLES    =    0  I 

* * 

I 
I 

«**THIS    ANALYSIS    IS 
PERFORMED    FOR    NYEARS 


*  BEGIN    00    LOOP  * 

*  2000    lY    =     1,  » 

*  NYEARS  * 

I 

60.08 >I 

I 
**   INCREMENT  VOLUME 
FOR  EACH  YEAR 

I 

I 

I         06 


VOLUME! 1)  = 

VOLUME! 1)  i 

VOLUME! 2) 


♦  * 

INCREMENT  % 

COMMERCIAL  FOR  EACH 

YEAR 

I 

I 
I 

07 

I 

TRUCKS! 11  = 

, 

I 

TRUCKSIll  *■ 

I 

TRUCKS! 2) 

I 

I 

I 
I 

**  INCREMENT  AM  AND 
PM  DIRECT lONAL  SPLIT 
FOR  EACH  YEAR 

I 

I  08 


SPLITIl)    = 

SPLIT!!)     1 

SPLITI2) 


>* 

I       NOTE  09 

*  BEGIN    DO    LOOP  * 

*  2010    ID    =    I,    2  * 

I 

50.04 >1 

I       NOTE  10 

*  BEGIN    00    LOOP  * 
»       2011IT    =    1,7  * 


50.03— >I 

1 

NOTE 

11 

* 

***** 

*  *  t 

*  * 

* 

BEGIN  00  LOOP 

* 

» 

2012  IH  = 

1,  2', 

* 

* 

***** 

»  *  * 

*  * 

**   INCREMENT 

0 

ISTRIBUTION 

OF 

TRAFFIC  FOR 

I 

EACH  YEAR 

I 

12 

I 

PCTAOT! IH, 

IT, ID, 

I 

1)  = 

I 

PCTAOTIIH, 

IT, ID, 

I 

1)  + 

I 

PCTAOT! IH, 

IT, ID, 

I 

2) 

I 
I 
I 

END    OF    00 
LOOP? 


N    =    LANES    ♦    1 


I 

I       NOTE       15 
*********** 

•  BEGIN    DO    LOOP  » 

*  2020    IC    =    1,    N  * 
*********** 


50 

.02— >I 

I 

NOTE 

16 

*  * 

*  *  *  « 

*  *  * 

*  « 

« 

BEGIN  DO  LOOP 

* 

* 

2021  I  = 

1,  8 

* 

*  * 

*  *  «  * 

#  *  * 

*  * 

50 

.01-  — >I 

** 

INITIALIZE  COSTS 

TO 

ZERO  FOR 

I 

EACH  YEAR 

I 

I 

17 

I  COSTSIIT,! 

Cl.IO)  I 

I 

=  C 

I 

1 
I 

/ 
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CHAkT     rlTLE 


SUOKQUTINf       YEAR 


EMU    UF    00 
LOOP? 


lYES  .    4 


»  NO 

END    UF    00  *-» 

LOUP?          *  1 

*                     *  I 

«         *  I 


lYES 


49 


END    OF    00 
LOOP? 


.    49 
.     1 


*  NO 

END    UF    DO  *-t 

LUUP?          <■  I 

»                     *  I 

»         »  I 


***INITIALCZE    THE 
TRANSFER    ACCUMULATED 
18    KIP    VARIABLE    TO 
ZERO 


lYES 


49 


suaRouTrjt  aworkl 

***NOTE:  OPTION  TO 
TRANSFER 

***       1.  PSI 
VALUE, 'PSI'  OR 

***  2. 

ACCUMULATED    18    KIP 
AXLtS, 'AXLE • 
I 
I 
1 
*«*DETERMINE    THE    PSI 
AND    A^IALYSIS    AGE    FOR 
YEAR 

I 
1 
I 
***INITl ALIZE  THE 
PRESENT 

SERVICEAdlLITY  INDEX 
TO  ZERO  EACH  YEAR 


1 


>« 

I 

***TEST  TLI  DETERMINE 
IF  A  PSI  HAS  BEEN 
TRANSFEREO  FROM  A 
CALLING  PROG 
I 

* 
»   PSI 

I 

«    06 
*    * 

«   TRUE 
.EQ.  0    * 

2310    1 

07 

I       AXLE 

=  0 

I 

I 

I 
*4«TEST  TO  DETERMINE 
IF  "AXLE"  HAS  BEEN 
TRANSFEREO  FROM  A 
CALLING  PRO 

1 

I 
* 

08 

«   AXLE  .EQ.  0 


««»ASSIGN  TRANSFEREO 
VALUE  FOR  AXLE  TO 
VARIABLE  FOR 
ACCUMULATED  18  KI 

I 

I 

I         09 


I 


AAXLES  =  AXLE 


I 


♦♦♦DETERMINE  THE 
DAILY  COMMERCIAL 
TRAFFIC  VOLUME  FOR 
ANALYSIS  YEAR 


->♦ 


I  CVOL    =  I 

I  TRUCKS!  1)  I 

I       *VOLUME(  U/lOO  I 


I 
I 

♦♦♦DETERMINE  THE 
ANNUAL  COMMERCIAL 
TRAFFIC  18  KIP  AXLE 
LOADINGS 

I 

I 

I          11 
t « 

I  AAXLES  =  AAXLES  ♦  I 
I  CVOL^.365^. 735/2   I 

t • 

I 
I 

I 

♦♦♦ANALYSIS  AGE  IS 

E9UAL  TO  ANAYSI S  YEAR 

MINUS  PAVEMENT 

RESURFACED  YE 

I 

>I 

2323    I          12 
# « 

I   AGE  =  JY  -  RAGE   I 

* « 

I 
I 
I 

♦♦♦TEST  THE 
PREDICTED  ACCUMULATED 
AXLES  AGAINIST  ACTUAL 
ACCUMULATED  A 

I 

I 

I 

♦    13 


AGE^ARHO    .GT. 
♦       AAXLES  ♦ 


IFALSE 
I 
I 
I 
I 
I 
I 
♦♦♦BASE  ANALYSIS  AGE 
ON  ACTUAL  AXLES 
I 

I  14 

« * 

I  AGE  =  AAXLES/ARHO  I 

t * 

I 

I 
♦♦♦COMPUTE 
PSI,PSIASN=INITIAL 
PSI,    DLIFE-DESIGN 
LIFE,AGE=ANALYSIS    AGE 


I<- 


I       PSI    =    PSIASN    -  I 

I  ((  (PSIASN    -  I 

I     1.5I/DLIFE)^AGEI       I 
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50.06» — >* 

23*9  I  NOTE  01 
♦  «****«*♦## 
»  CONTINUE  * 
*«♦»*»**•♦• 

I 

I 

I 
«**ANALYSIS    AGE     IS 
ASSU>leO    RELATED    TO 
LINEAR    LOSS     IN    PSl 
OVER    20    YEAR 

I 

I 

1  02 


I  AGE  = 

I  20*(PSIASN  - 

I  PSl )/(PSIASN  - 

1  L.S) 


•••TEST 
DETERMINE 
SHOULD  BE 

***l  F 
DUE  FOR  R 
SET  MAINT 
EQUAL  TO 


I 

I 

PSl  TO 
IF  PAVEMENT 
RESURFACED 
VEMENT  IS 
ESURFACING 
ENANCE  LEVEL 

I 
1 
I 


I  .LE. 
PSIRS 


ITRUE 

I 

1 

I 

I 

I 

I         0* 

* « 

I    0VER(6,7I  =  I  I 

« * 

! 
>I 

I 

♦♦^DEVELOPMENT  OF 
ANNUAL  WORKLOAD  FOR 
ACTIVITIES 

I 

I 

I 
♦♦♦DETERMINE  THE 
TYPE  OF 

ROADriAY, CONCRETE, 
BITUMINOUS    OR 
COMPOSITE 

I 

I 

I  05 


I 

COMPUTED 

GO 

10 

I 

I 

FOR 

ITYPE 

I 

i 

2101 

51 

.06 

I 

I 

2102 

52 

.  11 

I 

I 

* 

2103 

53 

.08 

' 

IF    OUTSIDE 


*    «    «    ♦ 


THE    RANGE 


♦  ♦CONCRETE 

WORKLOAD 

ANALYSIS 

51.05— >1 

2101 

NOTE       06 

♦    ♦♦♦♦< 

!♦♦♦♦♦ 

*               CUNT 

NUE                 ♦ 

♦   *  ♦   ♦   ♦ 


->♦ 


♦  ♦♦GET    EACH    ACTIVITY 
I 
I 

I       NOTE      07 

♦  «♦«*♦♦«♦♦♦ 

♦  BEGIN    DO    LOOP  ♦ 

♦  2104    lA    =    1,     7         ♦ 

♦  ««♦♦♦♦♦**♦ 


52.10— >I 
I 

♦♦♦INITIALIZE    WORK    A 
TEMPORARY    VARIABLE    TO 
HOLD    ANNUAL    WORKLOAD 
BY    AC 

I 

I 

I  08 


I 


WORK    =    0 


T 


I 
I 
I 

♦♦♦TEST  To  SEE  IF 
MAINTENANCE  LEVEL  IS 
iERO  MEANING  NO 
WORKLOAD 


♦      0VER(6 

,  lA)          ♦-+ 

.  ♦      .EQ. 

0         ♦          I 

» 

♦               1 

♦ 

♦                    I 

... 

IFALSE    •    52 

.    10 

... 

210 

♦♦♦BRANCH 

10    THE 

APPROPRIATE 

ACTIVITY 

MODEL 

10 

I          COMPUTED    GO    TO       1 

I                  FOR 

lA                  I 

I       2120 

51.11     I 

I        2125 

51.12    I 

I       2130 

52.01    1 

1       2135 

52.04    1 

I       21*0 

52.05    I 

1       2108 

52.07    I 

I       2195 

54.11    I 

IF  OUTSIDE  THE  RANGE 
I 
I 
I 
♦♦♦FULL  DEPTH 
CONCRETE  PATCHING 
MODEL 

I 

51.10 >I 

2120    I         1 


WORK  = 

0VERI3,IA) 

♦34^(l/( I  + 

EXP1-1^( lAGE  - 

101/1.2511)1 

I 


♦♦♦PARTIAL    DEPTH 
CONCRETE     PATCHING 

51.10 >♦ 

2125         I  12 

♦ « 

I   WORK  =  HMORKIl I   I 

* ■ * 

I 
I 

♦♦♦IT  IS  ASSUMED 
THAT  PARTIAL  DEPTH 
PATCHING  CANNOT 
EXCEED  ONE  CUBIC 

I 

I 

I 


ITRUE 

I 
I 
I 
I 

I          14 
• « 

I  WORK  =  1  I 
» ♦ 

I 
>I 

I 
♦♦♦DEDUCT  PARTIAL 
DEPTH  PATCHING  FROM 
ACCUMULATED  FULL 
DEPTH  PATCHING 

I 

I 

I         IS 
« * 

I  HWORKIll  =  I 
I  HWORK(l)  -  WORK  I 
« * 

I 
I 
I 

♦♦♦FACTOR  WORKLOAD 
IF  APPLICABLE 
I 


I                  WORK    = 
I       W0RK^0VER(3 

lA) 

I 
1 

I 
I 

♦♦♦TEST 

WORKLOAD 

FOR   OVERRIDE 

RATE 

I 
I 
I 

♦  FALSE 


0VERI4ilA) 

♦   .N6.  0 


ITRUE 

I 

I 

I 

I 

I 

I 


I    WORK    =    OVER I4,IAI 


"51.17»~>^ 
I 
♦♦♦CDMVERT  PARTIAL 
PATCHING  TO  SQUARE 
FEET  AND  ACCUMULATE 
I 
I 
I         19 


HWORKI lA) 

HMORKIUI 

W0RK^9 

I 
I 
I 


CHART  TITLE  -  SUBROUTINE   YEAR 


e«*C]NCRETt    BLOWUPS 


*«*ASSUMEO  THAT 
THERt  ARE  NJ  BLJWUHS 
PRIOR  TO  FIFTH  YEAR 

bl.lO >* 

1 
2l3u  «  01 


lY    .LT.     5 


**?1T 

IS    ASSUMEl) 

THAT    THERE    WILL    Bfc    NO 

SLUWUPS 

AFTER    2S 

YEARS 

I 

I 

*         02 

*          * 

* 

:jc 

* 

*       TRUE 

*       lY 

.GT.     25          * > 

1F4LSE 

I 

I 

I 

I 

1 

I 
***SLOWUP  MOUEL  FOR 
SETKEtN  5  AND  25 
YEARS 

I 


2131 


03 


I    WORK    =    .005*(IY    -    I 
I  'f)*GVER(3,  la)  I 


<.,j.TEMP3    I  S    THE 
PORTION    OF     THE    TOTAL 
MUDJACK ING    TO    bF    DONE 
EACH    YEAR 

51.10 >« 

2140  I  05 

* 4 

I  TEMP3    =  I 

I  .25*1. 5*IY)  I 

I       »*24EXP(-.5*IY1        I 


I 

I 
♦**ANNUAL    MUDJACK ING 
LOCATIUNS 

I 

I 

!                        06 
? # 

I  WORK    =  1 

I       TEMP3*52.a/GVER       I 
1     (  2,  1AH>0VER(3,I  A)     I 

* , 

I 
I 
I 

*»*OV£R  RIDE 
WORKLOAD  RATE  FOR  ANY 
ACTIVITY 

I 
—  51  .10* — >I 


I 


210O 


07 


*   aVER(4,IA) 
*   .NE.  0 


I  TRUE 

I 

I 

I 

I 

I 

I       oa 

I  WORK  =  OVER  14,  lA)  I 
» » 

I 

I< 

I 

*«*ACCUMULATED 
WORKLOAD  FOR  ANY 
ACTIVITY 

I 

I 

I  09 

I     HWORK(IA)  =     1 
I  HWURK(IA)  t  WORK   I 


-51.0V* — >I 
I 
2104    »    10 


END  OF  DO 
LOOP? 


***JOINT  SEALING 
MODEL 


il.  10— 
2135 


I 


04 


1  >WORK    =  I 

I       5280/OVERI 2, lA)  I 

I  'WIDTH^OVER (o, I  A)  I 

I  *QVER(3,IA)  I 


.54. 15. 
...  2199 


**»bITUMtNOUS 
WORKLOAD  ANALYSIS 

51.05 >* 

2102    1   NOTE   11 

*  CONTINUE       * 
*********** 

I 
I 
I 
4«»GET  EACH  ACTIVITY 
I 
I 

I   NOTE   12 
*********** 

<•    BEGIN  00  LOOP    « 

*  2105  lA  =  1,  7    « 

I 
53.07  — >I 

«*»1N1T1AL12E    WORK    A 
TEMPORARY    VARIABLE    TO 
HOLD    ANNUAL    WORKLOAD 
BY    AC 

I 

I 

I  13 


I                WORK    =    0 

[     . 

I 
I 

**»TEST    TO    SEE     IF 

MAINTENANCE    LEVEL 

IS 

ZERO    MEANING    NO 

HORKOAD 

1 

I 

«          14 

if             * 

*                            * 

*                                      5 

TRUE 

*       0VER(6,IA) 

*-t 

«       .EQ.    0          « 

I 

4                     « 

I 

*          ♦ 

I 

* 

IFALSE    . 

53    . 

I 

07    . 

I 

.... 

I 
I 

2105 

I 
♦♦•BITUMINOUS 

WORKLOAD    AGE    FACTOR 

MODEL 

I 

I 
I 
* 

15 

i       FACTl    -    (1/(1    +       I 
I  EXP( (-AGE    *  I 

i  10)/1.16)l)  I 


I 
I 
I 

**»8RANCH 

TO    THE 

APPROPRI 

ATE 

ACTIVITY 

MODEL 

I 
I 

I 

16 

I          COMPUTED    GO    TO       I          I 

1                  FOR 

lA                 II 

1        2150 

52.17    I          I 

1       2155 

53.01     I          I 

I       2160 

53.02    I          I 

I       2109 

53.03    I          I 

I       2109 

53.03    I          I 

I       2109 

53.03    I          I 

I       2195 

# 

I 

54.11     1          I 
*          I 

I 

+ 

>* 

I 

IF  OUTSIDE  THE  RANGE 

I 

I 

I 
«**8ITUMIN0US 
PATCHING    WORKLOAD 

52.16 >I 

2150  1  17 

* « 

I  WORK    =  I 

I       FACTl»1100»DVER       I 
I  (3,IA)  I 


.53.03. 
...    2109 


281 


CHART    TITLE    -    SUBRuUTl,\]fc       YEAR 


»»»Cf<ACK.SEAL  ING 
WORMOAD 

52.  16 ><■ 

2155  I  01 

* >;< 

I  WORK    =  I 

I       FACT1«1000*0VER       I 
I  (3,IA)  I 


»*«BITUMINOUS    8ASE 
AiMD    SURFACE    REPAIR 
WORKLOAD 

52.  16 >« 

2160  I  02 

# * 

I  WORK    =  1 

I     FACTl«aVER( 3, lA)        I 
I  *5  1 


1 

—  52.16* — >1 

I   NOTE   03 

»      CONTINUE        * 

1 
I 
I 

♦'♦OVER    RIDE 
WORKLOAD    RATE    FOR    ANY 
ACT  IVITY 

I 

1 

I 

♦  0'. 


0VER{4, lA) 
♦       .NE.     0 


OVEKC.IA)     I 


I 

>I 

I 

♦♦♦ACCUMULATED 
WORKLOAD  FOR  ANY 
ACTIVITY 

I 

I 

I 

« 

I  HWORK( lA)     = 

I    HWORK( (A)     *    WORK 

I 

52.14 >I 

I 

2106  ♦  07 

♦  ♦ 


*  END    OF    OD 

♦  L00P7 


NO 
♦  -  + 
I 
I 
I 

.    32    . 
.     13    . 


.5*. 15. 
...    2199 


♦♦♦COMPOSITE 
WORKLOAD  ANALYSIS 


51.05 >♦ 

2103    I   NOTE 

08 

«*♦♦#♦«♦ 

♦  ♦ 

CONTINUE 

♦ 

♦  ♦♦♦♦♦♦« 

I 

♦  * 

I 

1 

09 

FACTl  =  (1/(1  +   I 

EXP( (-AGE  * 

I 

10)/1. 16) ) ) 

1 

I 

I 

♦♦♦GET  EACH  ACTIVITY 

I 

1 

I   NOTE 

10 

♦  ♦  ♦  ♦  ♦ 


♦  ♦  ♦  ♦  ♦ 


♦  BEGIN  DO  LOOP    ♦ 

♦  2106  I  A  =  1,  7    ♦ 

♦  ♦♦♦♦♦♦♦♦♦♦ 

I 
5*. 10 >l 

I 
♦•♦INrriALIZE  WORK  A 
TEMPORARY  VARIABLE  TO 
HOLD  ANNUAL  WORKLOAD 
BY  AC 

I 

I 

I  11 


I 


WORK  =  0 


I 


I 
I 

I 

♦♦♦TEST  TO  SEE  IF 
MAINTENANCE  LEVEL  IS 
ZERO  MEANING  NO 
WORKLOAD 

1 

I 

I 


♦       0VER(6.IAI  ♦-<• 

♦       .EU.    0  ♦  I 

♦  ♦  I 

♦         ♦  I 

♦  .  .  .  . 

IFALSE    .    54 

I  .     10 

I  

I         2106 
I 
I 
I 
♦♦♦BRANCH  TO  THE 
APPROPRIATE  ACTIVITY 
MODEL 

I 
I 
I  13 


COMPUTED  GO  TO 
FOR   I  A 


2170 
2110 
2180 
2185 
2190 
2110 
2195 


53.15  I 

54.07  I 

54.01  I 

54.04  I 

54.05  I 
54.07  I 
54.11  I 


I 
I 

I 

IF  OUTSIDE  THE  RANGE 
I 
I 


>» 

I 
♦♦♦OVERLAY    PATCHING 
MODEL 

I 

53.13 >I 

2170         I                        15 
« ♦ 

I  WORK    =  I 

I       FACT1^1100*0VER       I 
I  I3,IAI  I 


CHART    TITLE    -    SUBROUTINE       YEAi< 


»**UVtRLAY  bLOWUP 
MUOEL 


••♦ASSUMED  THAT 
THERE  ARE  NO  bLUKUPS 
PKIGR  Tu  FIFTH  YEAR 

53.13 >• 

I 
2130         •         01 


***tEHPi    IS    THE 
PORTION    OF     THE    TITAL 
MUOJACKING    TO    BE    DONE 


♦♦•OVER    RIDE 
WORKLOAD    RATE    FOR    ANY 
ACTIVITY 


S3.13— 
2190 


♦ 

« 

I 

• 

• 
• 

I 

IFALSE 

10 
2106 

♦••IT  IS 

ASSUMFf) 

THAT  THERE 

WIL  BE 

,MU 

BLOWUPS  AFTER  25 

YEARS 

1        TEMP  3  = 
I      •25^(.5^IY) 
1   ♦«2^EXP(-.5^1Y) 

I 
I 

I 

I 

I 
I 
•♦♦ANNUAL 
LOCATIONS 

I 

MUDJACKING 

I 

06 

I  WORK    =  I 

I        TEMP3^52.8/0VER       I 
1     (2,IA)^0VER(3,IAI     I 


-53.13^-->^ 
I 
2110    ♦    07 


♦ 

♦ 

TRUE 

♦   lY 

.GT.  25 

♦  -«■ 

• 

• 

I 

♦ 

• 

•    • 

1 
I 

.  «•  • 

IFALSE 

.  5*  . 
.  10  . 

2106 

I 
♦♦♦BLOWUP  MODEL 

FOR 

BETWEEN 

5  AND  25 

YEARS 

I 

21B1 

I 

03 

I  WORK  - 

=  .005«tlY 

-  I 

I    'tl  •OVER!  3.  I  A) 

I 

I 
I 
1 

0VeR(4,I A) 
»   .NE.  0 


ITRUE 
I 
I 
I 
I 
I 

I          03 
« # 

I  WORK  =  nVERI't.IA)  I 

# « 

I 
>I 

♦♦♦ACCUMULATED 
WORKLOAD  FOR  ANY 
ACTIVITY 

I 

I 

I  09 

» 1 

I     HWORKIIA)  =     I 
I  HWORKilA)  4^  WORK   I 


53.12*— >I 
I 
2106    *    10 


•♦♦SET  RAGE.  THE 
YEAR  OF  PAVEMENT 
RESURFACING, EQUAL  TO 
ANALYSIS  YEAR 

Sl.lO^  — >* 

2195    I  11 


I 

♦♦♦COMPUTE 
RESURFACING  WORKLOAD 
I 
I 
I         12 


HWQRKI lA)    = 
586.67*WI0TH^ 
0VERI3.IA) 


I 

I 
I 

♦•♦SET  ACCUMULATED 
18  KIP  AXLES  EOUAL  TO 
ZERO 

I 

I 

I  13 


I 


4AXLES 


I 


♦RESET  DESIGN  LIFE 
RLIFE,  THE 
URFACED  DESIGN 
E 

I 

I 

I         14 


TO 

RES 

LIF 


END  OF  00 

•  -  + 

* « 

LOOP? 

*        ♦ 

•    • 

♦    I 

I    DLIFE  =  RLIFE    1 

1 

• 
lYES 

.  53  .  I 

2199    I   NOTE   15 

.  11  .  I 

•  ♦♦♦♦♦♦«•** 

*      CONTINUE       * 

**••**♦♦*♦• 

I 

I 

RETURN 

END 

I 

1 

♦♦♦THIS  IS  A  ROUTINE 
AT  THE  DIRECTION 
LEVEL 


283 


•*♦**••***♦ 

•  BEGIN  DO  LOOP  ♦ 
»  2030  ID  =  1,  2  ♦ 
»**♦♦♦•*♦•• 


♦♦♦CRACKSEALING 
MODEL 

53.13 >♦ 

2185         I  04 

« « 

I  WORK  =  I 
1  FACTl^lOOO^OVER  I 
I        (3)IAI         I 

V * 

I 
I 
I 


55. 

17— >l 

♦♦♦INITIALIZE  TEMPI 

F3R 

EXCESS  VOLUME  TO 

ZERO 

1 

1 

I          17 

* 

* 

I 

TEMPI  =  0      I 

* 

* 

I 

I  NOTE  18 
***••»•♦•** 
»  BEGIN  DO  LOOP  ♦ 
•  2031  IH  =  1,  24  » 
*•*♦**♦**•* 

I 

I 

I 

I   / 


i 


CHART  TITLE  -  SUBROUTIWE   YEAR 


5*.13« — >* 
I 

«**0ET£RMINE  THE 
HOURLY  TRAFFIC 
VOLUME  ON  THE  FREEWAY 


I 


HVOL(IH)  = 

VOLUME( 11 

♦ABSl ID  -  I  - 

SPLITdl/lOO) 

*PCTAUT ( IH,7. 10. 

II     *    TEMPI 


1 

*»«OETCRMINE    NORMAL 
FREE»(AY    CAPACITY 

I 

I 

I                       02 
« « 

CAPACT    = 

CAPILANES    * 

I)*U    - 

PCTAOT( IH,6,I0, i) 
) 

I 


**«TEST  TO  DETERMINE 
IF  HOURLY  VOLUME 
EXCEEDS  NORMAL 
CAPACITY 

»»*AND  IF  IT  DOES 
HOLD  EXCESS  IN  TEMPI 

I 

1 

I 

*    03 


FALSE  »  * 

«  HVOL( IH)  .GT.  * 

♦   CAPACT    t 


I        TEMPI  =        I 
I  HVOL(IH)  -  CAPACT  I 


•s«*LET  THE  HOURLY 
NORMAL  VOLUME  8E  THE 
ACTUAL  VOLUME  LESS 
TEMPI 

I 

I 

I         05 
4 * 

I      HVOL(IH)  =       I 
I  HVGLI IH)  -  TEMPI   I 


»»*DETERMIN  V/C 
SUBSCRIPT 


I  I  =  I 

I       (HVOLCIH)       I 
I  /CAPACT  +  .15)«10  I 


>» 

I 

•♦♦ASSIGN  A  SPEED  TO 
THE  HOUR 

I 

I  07 

4 if 

I    SPEEDNI IH)  =      I 
I   SPILANES  +1,1)   I 


i 

♦•♦DETERMINE  THE 
HOURLY  TRAFFIC  VOLUME 
ON  THE  DETOUR 

I 

I 

I          00 
4 4 

I  UVOL(IH)    =  I 

I  HVOL(IH)  I 

I  ♦QET0UR(4)  I 

I  /VOLUME!  1)  I 

4 4 

I 

I 

I 
♦♦♦DETERMINE  NORMAL 
DETOUR  CAPACTITY 


09 


1  CAPACT    =  I 

I       DETOUR  (5)^(1    -  I 

I  PCTADTI IH,6, 10,1)  I 

I  I  1 


I 
I 

♦••DETERMINE 

V/C 

SUBSCRIPT 

I 
I 
I 

10 

I                       I    = 

I 

1                IDVQLIIH) 

I 

I     /CAPACT    t     . 

15)^10    I 

♦♦♦SUBSCRIPT 

CANNOT 

EXCEED    ELEVEN 

I 

I 
• 

U 

•          ♦ 

♦ 

♦ 

FALSE 

♦ 

♦ 

+ <. 

I     .GT. 

11         ♦ 

♦ 

♦ 

♦ 

♦ 

♦         ♦ 

« 

, 

ITRUE 

I 
I 
I 
I 
1 
I 

Id 

I          ♦ 

1          I 

I    =    II 

-♦ 
I 

1 

♦♦♦ASSIGN    A 

SPEED 

TO 

THE 

HOUR    FOR 
I 

3ET0UR 

1 
I 

13 

I 

SPEEDD(IH)    = 

I 

I 

SPCLANES 

>I) 

I 

« 

1 
I 

-♦ 

♦    NO 
END  OF  DO    ♦-+ 
LOOP?    ♦ 


.    5 
.    0 


16    I 

H 

14    I 
I  .     I 

MAINT 

H 

H 

10    I 

H 

11    I 

H 

I 

16 

17     I 

H 

15    I 
I.     I 

MOTOR 

H 
H 

10    I 

H 

11     I 

H 

2030        ♦         17 

♦  • 

♦  ♦ 

*  ♦NO 

*  END    OF    DO  *-t 

*  LOOP?  ♦  I 

♦  ♦  I 

♦  ♦  I 

I  YES         .    54    . 
I  .     17    . 

I  .... 

I 
I 
I 
I 

♦•♦TEST  FOR 
RESURFACED  ROADWAY 
I 
I 
I 

•    18 
«    ♦ 

♦  « 

*  ♦   TRUE 

*  0VER(6,7)    ♦-+ 

*  .NE.  1    •    I 


•    • 


I 


IFALSE  .  56  . 
I  .  03  . 
I         

I        2040 
I 

I 

I 
•**SET  MAINTENANCE 
LEVEL  E9UAL  TO  ZERO 

I 

I          19 
* « 

I    0VER(6,7)  =  0    I 

4 « 

I 

I 

I 
•••RESET  THE  INITAIL 
PSI  TO  3.6  ,  THIS  IS 
80«  OF  THE  NEW 
PAVEMENT  VAL 

I 


>* 

I  21 

« « 

I    PSIASN  =  3.6     I 


I 

I   NOTE   22 
*•••«*•*•*• 

•  BEGIN  00  LOOP    • 

*  2035  lA  =  1,  7    * 

I 
>I 

I  23 

« « 

I    HWORK(IA)  =  0    I 

« « 

I 
I 
I 

2035    *    24 


END  OF  DO 
LOOP? 


• 

• 

TRUE 

*    ITYPE 

.NE.     I 

♦-+ 

« 

* 

I 

• 

* 

I 

* 

* 

I 

•  ••. 

IFALSE 

.    56    . 
.    03    . 

2040 

•  ••MAKE 

THE 

FOLLOWING 

CONVERS 

IONS 

FOR    CONCRETE    PAVEMENT 

•••TO    REFLECT    THAT 

PAVEMENT 

TYPE     IS 

<IOW 

COMPOSITE 

I 

I 
•••COMPOSITE 

PAVEMENT 

IS     ITYPE 

I 
1 

=  3 

26 

ITYPE 


I 
I 
I 

•••SET  THE 
MAINTENANCE  LEVEL  FOR 
PARTIAL  DEPTH 
PARTCHING  TO  ZERO 


I 
I 
I 

•••SET  THE 
SIMULATION  FACTOR  TO 
TEN  FOR  BITUMINOUS 
PATCHING 

I 

I 

I 

I   / 

/56.01 
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CHAHT  TITLE  -  SUaKuUTlNE   YEAR 


1 


I          SIMU  t2  )    = 

--     10 

I 

I 
I 

I 
***SET    THE 
MAINTENANCE    LEVEL 
JOINT    SEALING    TO 
ANNUAL 

1 

FOR 

I 
I 

02 

I          0V£R(6t'il 

=    1 

I 

55.18*— >I 

20^.0          1       NOTE 
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MAINT 


I 
55.  15 >I 

I   NOTE   01 

«    UEGIN  DO  LOOP    * 
*       3010  I  A  =  1,  7    * 

I 
72.11 >I 

I 
**»TEST    TO    OETEKMINE 
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IF  WORKLOAD  WILL  BE 
DONE  AT  LEAST  ONCE  IN 
YEAR 

I 

I 

*    04 
*    ♦ 


*    NA  .GE.  1    «- 


IFALSE 

I 

I 

I 

I 

I 

♦♦♦ACCUMULATE 

MAINTENANCE  LEVEL  IN 

FIRST  DIRECTION 

I 

I 

I 

*    05 
*    * 
♦        « 
*             ♦  FALSE 
♦    ID  .EQ.  1    ♦ 


»    ♦ 
* 
ITRUE 


I  TLEVtLI lA)  =  I 
I  TLEVELI lA)  +  I 
I  0VER(6,IA)  <■  .001  I 


**   TEST  TO  DETERMINE 
IF  ACTIVITY  WILL  BE 
PERFORMED  IN  ANALYSIS 
YEAR 

I 


I 


TLEVELI  lA) 
►       .LT.     1 


I 


IFALSE    .     72    . 
I  .     11    . 

i  .... 

I  3010 

I 

I 

I 
♦•       RESET    THE 
ACCUMULATED 
MAIlMTENAiNCE    LEVEL 
VARIABLE    BECAUSE    WORK 
EXEC 

I 

I 

I 

♦  08 


ITRUE 

I 

I 

I 

I 

I 

I 


I       TLEVEL(IA) 


MAI 
ONE 


SET    LEVEL    OF 
NTENANCE    FACTOR     TO 

I 
I 

I  10 


3021    I   NOTE   11 
CONTINUE        * 


I 

♦*   DETERMINE  THE 
CREW  HOUR  COST  FOR 
LABOR  AND  EQUIPMENT 

1 

I 


I         CU  =  1 

1   PS( lA, ITYPE, I)    I 


>* 

I 

*«*INITI ALIZE 
WORKSITE  TYPE 

I 
I 


I 

I 
I 

♦♦♦DETERMINE  IF 
WORKSITE  IS  UNIFORMLY 
OR  RANDOMLY  SPACED 
I 


I 


1* 


1 
I 
I 

♦♦♦INITIALIZE  LF,  A 
LANE  FACTOR  USED  TO 
MODIFY  SIMULATION 
WORKLOAD 

I 

I 

I         15 


I 


LF 


1 


I 


I 
I 
I 

♦♦   ESTABLISH  THE 
AMOUNT  OF  WORKLOAD  TO 
BE  DONE  FOR  EACH 
OCCUPANCY  PER 
I 

I  16 

t « 

I  WK  =  HWORKI lAI/NA  I 


I 

I 
♦♦   ASSIGN  CREW 
TRAVEL  TIME  TO  TT 

I 

1  17 

# « 

I   TT  =  0VER(5fIA)   I 


I 

I 
I 

♦♦       DETERMINE    THE 

OCCUPANCY    FIXED 

CREW 

HOURS    FOR    EACH 

OCCUPANCY 

I 

I 

IB 

I                FIXHRS    = 

I 

I        2^0VER(8,IA) 

*          I 

I             0VER(7,IA) 

' 

1 

I 

♦♦   TEST  CREW  WORK 
HOURS  AGAINST  24, 
WHICH  MEANS 
CONTINUOUS  WORK 

I 

I 


TRUE    ♦  ♦ 

♦       QVERd.IAl 

♦       .NE.    24       ♦ 


♦♦       ASSUME    NO    CREW 
TRAVEL    TIME    OR 
F  IXHOUHS    FOR    24    HR 
OCCUPANCY 

I 

I 


♦♦       ADJUST    AVAILABLE 

CREW    HOURS    FOR 

TRAVEL 

TIME 

1 

3050          I 

22 

I                  CREWT    = 

, 

I       OVERd.IA)    - 

TT 

I 

I 
I 

♦«       ASSIGNMENT 

PROCESS    FOR    ALL 

POSSIBLE    LANE 

CLOSURES 

I 

I       NOTE 

23 

♦    ♦♦♦♦♦♦♦ 

♦ 

♦    ♦ 

♦          BEGIN    00    LOOP 

♦ 

♦          3031     IC    =    1 

♦ 

♦                     LANES 

♦ 

♦    ♦♦»**♦♦ 

# 

»    ♦ 

70.24— >I 

♦♦♦TEST    TO    DETERMINE 

IF    LANE    FACTOR, 

•LF 

• 

WILL    BE    SET    EQUAL 

TO 

LANES    C 

I 

ITRUE 

I 

I 

I 

I 

I 


I 
♦♦♦INITIALIZE    FIRST 
UNAVAILABLE    HOUR    OF 
ROADWAY    OCCUPANCY    TO 
ZERO 

I 

I 

T 

I       / 


/65.01 
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->* 


1 
I 
I 

«»4aDJUST    THE 
AVAILABLE    UCCUPANCY 
HUUKS    ARRAY     MHOUR' 
FJR    V/C    CONSTRA 
I 

I       t^OTE       02 

*  OtGIiM    UO    LUUP  « 

»       3700    IH    =     I,     ZA       » 
*********** 

I 
>I 

I 
*»«I.'JITI  AL12E  JHOUR 
TO  IHMR 

I 
I 
1  03 


I      JHOUR(IH)  -  I 

I     IH'JUKI  IH,  1  A)      I 


END  OF  UO 
LOOP? 


lYES 

I 

I 

I 
I 
I 

*»*IF  DETOUR  EXISTS 
BYPASS  V/C  RESTRAINTS 
I 
1 
1 
*    05 


«   IC  .EQ.   » 

LANES  .AND. 

»0VER(12, lAl* 

«.EJ.  0  * 


65 
16 


***TEST  T 
IF  ROAD  Ml 
CLOSED    FOR 


DETERMINE 
L    8E 
2<i    HOURS 


* 

TRUE 

OVER (I il A) 

«-+ 

•  EQ.  24   ♦ 

I 

*        * 

I 

*    * 

I 

* 

.  ■  •  ■ 

IFALSE 

.  65  . 

.  16  . 

3703 

I       NOTE       07 

*  BEGIN    DO    LOOP  * 

»       370'.     IH    =     1,     2<t       ♦ 
*********** 


65.15- 


««*DETORMINE    THE 
CAPACITY    OF    CLOSURE 

I 

I  C 

I  CAPACT    = 

I  CAP(IC)     <• 

I  (0VER(12,IA) 

I  *CAP( LANES) I 

^ 

I 
I 

r 


TRUE    *  * 

+ .*     [c     .NE.    LANES 


IFALSE 

I 

I 

I 

I 

I 

«««UETERMINE 
CAPACITY  OF  SHOULDERS 
I 

I 

I  10 

^ 4 

I  CAPACT    =  I 

1    CAP( IC)«DVER( 12.        I 
I  lA)  I 


I       NOTE       II 
****** 


I 
I 

«*»CaMPUTE    THE 
VOLUME    CAPACITY    RATIO 

I 

I 

I                        L2 
* ^ 

TEMPI    = 

HVOLI IH) 

/<CAPACT«l  1    - 

PCTADTI 1H.6.ID.1) 

)  ) 

* * 

I 
I 
I 

*»*TEST  THE 
VOLUME-CAPACITY  RATIO 
AGAINST  THE  PERMITTED 
V/C  RATIO 

I 
I 
I 
3702         *  13 


TEMPI     .GT. 
*OVERl 10, lA)* 


I  14 

* 

JHOURdHI     =    0  I 


65.05* 
3703 


»«       INI 

NUMBER 
CONTROL 
LANE  CL 


ND  OF  DO 

*-  + 

LOOP?    * 

I 

* 

I 

*    * 

I 

* 

•  .  . 

lYES 

65 

1 

08 

I 
—  >I 

I   NOTE 

16 

***** 

*  * 

ONTINUE 

* 

***** 

*  * 

1 
TIALIZE  THE 

OF  TRAFFIC 

ZONES  FOR 

OSURE  TO 

I 

I 
I 

17 

*»   INI 
ACCUMUL 
LENGTH 
CLOSURE 


1 

TIALIZE  THE 

ATEC 

ZONE 

FOR 

LANE 

TO 

I 
I 

ZERO 

1 
I 
I 

**   INITIALIZE  CREW 
HOURS  FOR  LANE 
CLOSURE  TO  ZERO 

I 

1 

I  1 


I 


CREWHI IC)  =  0 


**4INITIALIZE  NO 
AVAILABLE  OCCUPANCY 
TIME  INDEX 

I 

I 

20 

I   NOTIMEdCI  = 

0    1 

I 

1 

I 
»*   INITIALIZE 
OCCUPANCY  HOURS 
LANE  CLOSURE  TO 

I 

FOR 
ZERO 

I 

1   NOTE   21 
*********** 

*  BEGIN  00  LOOP    * 

*  3015  IH  =  1.  24   * 
*********** 

I 

-55.21* — >* 
I 


I  HRSI lA, IH.IC)  =  0  I 


END  OF  DO 
LOOP? 


I  YES 

I 

I 

I 

I 

I 

I 
*«   ESTABLISH 
SIMULATION  WORKLOAD 
DENSITY  FACTOR 

I 

I 

I  24 


DENSEW  = 

SHORK(IA) 

*LF/(WK*IC) 


I 


I 
I 

I 

«•   SIMULATE  THE 
ASSIGNMENT  OF  CREWS 
TO  THE  ROAD  TO 
PERFORM  WORK 

I 

I 

I 
«*   INITIALIZE 
VARIABLES  FOR 
SIMULATION  PROCESS 
»«   PATCH  ARRAY 
COUNTER 

I 

I 

I         25 


I 


IW 


I 


I 
I 

I 

**   ACCUMULATED 
PRODUCTION  TIME 

I 

I 

I 


I 


TTIME  =  0 


»«*ESTABLISH  THE 
NUMBER  OF  SIMULATION 
ITERATIONS 
I 


I 


27 


I  ISIM  =  SIM( IA,4) 

« 

I 


»*»ESTABLISH 
SIMULATION  FACTOR  FOR 
RANDOM  LOCATIONS 

I 

I 

I         28 
« « 

I  SFACT  =  lOOO/ISIH  I 
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5b. 28— 


I 


**       INCREMENT    THE 
WORKLUAD    ARRAY 
I 

70.18 >I 

3025         I 

« 

I  IK     =     IW     +     I 


*                        * 

TRUE 

*    IW    .GT.    ISIM 

*-+ 

«                             * 

I 

*                   * 

1 

«         lit 

I 

« 

.... 

IFALSE 

70    . 

I 

19     . 

SUBROUTINE 


**       IF     IMl     IS     ZERO 
THIS     IS    THE    FIRST 
TIME    FOR 

ROUTINE, ACTIVITY, 
CLOSURE 

I 


I  .    09     . 

I  3*92 

I 

1 

I 

**   DETERMINE  THE 
FIRS  r  HUUR  WHEN  CREWS 
CAN  NOT  JCCUPV  ROAO 

1 

I 

I   NOTE   04 
*«««***»4** 

*  BEGIN  DO  LOUP    * 

*  3490  I  =  1,  24    * 

I 
66.00 >l 

*    05 


* 

* 

TRUE 

JHUURI I  1 

.EJ. 

*-*- 

* 

0 

V 

I 

* 

* 

I 

*         * 

1 

* 

.... 

IFALSE 

66     . 

I 

oe   . 

>* 

I 

3490    *    06 


END  OF  00  *-»■ 

LOOP?  *    I 

*        •  I 

«    *  I 


YES 


66 


«*   ASSUME  FIRST 
OCCUPANCY  HOUR  TO  BE 
6AM  IF  ALL  HOURS  ARE 
AVAILABLE 

I 

I         07 


56.05 >I 

I 


I 
I 
I 

♦*   INITIALIZE 
AVAI LA8LE  CREW  HOUR 
FOR  A  CONTINUOUS 
OCCUPANCY 

I 

--60. 03* — >I 

3492    I 


I 


AVAIL  =  0 


I 
I 
I 

*«       DETERMINE    FIRST 


AVA 

LABLE 

OCCUPANCY 

HOUR 

I 

I 

I       NOTE 

* 

ft 

ft    ft    ft 

ft    ft    ft    ft    ft 

ft 

BEGIN 

DO    LOOP 

ft 

3500    I 

=     IMl,    24 

ft 

* 

ft    ft    ft 

ft    ft    ft    ft    ft 
I 
>I 
1 

JHOURd  ) 
ft  I 


CON 
DAY 


END    OF    DO 
LOOP? 


lYES 
I 
I 
I 
I 
I 
I 
ALLOW  SEARCH  TO 
TINUE     INTO    NEXT 

I 


I  NOTE  13 
*****ftftftftft* 
*  BEGIN  DO  LOOP  * 
ft   3504  I  =  1,  24    ft 


JHOURIII     .EQ. 
ft  1  * 


IFALSE 

.    67    . 

.    01    . 

•  •■  ■ 

3501 

->* 

T 


3504 


I  ft  ft 

I  *  * 

I  NO       ft 

+ ft  EMD    OF    D3 

ft  LOOP? 


lYES 

I 

I 

I 

I 

I 

I 


I       NQTIMEdCI 


16 

■  -* 
I 
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*«       ACCUMULATt     IN 
AVAIL     THE     TOTAL    HOURS 
OF    CONTINUOUS 
OCCUPANCir 

66. 11* — >* 

3i3Ul  I       NJTF       01 

4  CONTINUE  * 

I 
I 

*«   IMi  IS  ASSIGNED 
TO  1ST  AVAILABLE  WORK 
HOUR 

I 

I 

I  02 


I 


IM2 


1 


I 


I   NOTE 

03 

**«*«**** 

«  « 

»    rtE&IN  DU  LOOP 

» 

«   350^  J  =  1,  2'. 

* 

1 

*  * 

^o^TEST  FUK  AN 

AVAILAdLL  HUUR 
I 

I 

*    O'i 

JHOUR(J)  .bj. 


I 
1 

I 
I 

»»*ACCUHULATe  THE 
NUMBER  OF  CONTIiMUOUS 
AVAILABLE  HOURS 
I 
I 
35J2    I          05 
* # 

I  AVAIL  =  AVAIL  t  1   I 


END  OF  L 
LOOP? 


lYES 

*■) 

ALLOW 

THE 

ACCUMULATED  HOURS 

OF 

OCCUPANCY 

TO  CONTINUE 

I.mTO  The  NEXT 

1   NOTE 

07 

* 

*  *  *  * 

V  *  «  ^ 

*  * 

* 

BEGIN 

DO  LOOP 

* 

« 

3503  J 

=  1,  Z', 

* 

* 

*  «  *  » 

*  4  *  -* 
I 

1 

«  * 

-67.U7* — >t 


JHtlUF(J)  -EU.  *- 
*       0      * 


<•*   THE  NURK  PERIOD 
MAY  NOT  EXCEED  2'. 
HOURS  FOR  A  GIVEN 
LOOP 

I 

I 

I 

«  09 


*       T^Ut 

AVAIL    +    1  » > 

•  GT.     2'.       « 


I     AVAIL    =    AVAIL    ♦     1     I 


< »  EfjQ    UF    00 

«  LOOP? 


ASSI 
PEf  L 
UNAV 


I  YES 

I 

I 

I 

I 

I 

I 
THE  VALUE  OF  J 
GNED  TO  IMl 
ECTS  THE  1ST 
AILABLE  HOUR  U 

1 

O'i*  —  >I< 

505    I  12 


IMl  =  J 


I 


«MAKE  THE 
TINUOUS  AVAILABLE 
UPANCY  TIME  EQUAL 


CON 
OCC 
TO 
» 
BET 
•CR 


»THE  SMALLER  VALUE 
^EEN  NET  CREW  TIME 
EWT'  OR  'AVAIL' 

I 

I 


CREWT  .Lt. 
«    AVAIL 


ITRUE 

I 

I 

I 

I 

I 

I 


AVAIL  =  CRtHT 


I< 

I 

**»ADJUST  AVAIL  FOR 
THE  FIXED  HOURS 
REQUIRED  ON  THE 
ROADWAY 

I 

I 

I          16 
« # 

I   AVAIL  =  AVAIL  -   I 
I        FIXHRS         I 


I 

I 
**   ESTABLISH  THE 
LOCATION  OF  THE  FIRST 
WORKSITE  IN  THE 
TRAFFIC  ZONE 


I 

DISTl  = 

I 

1 

DENSEW«RLOC( IWI 

I 

44 

I 

1 
♦INITIALIZE  THE 

SPACING  FACTOR  'SF' 

FOP 

UNIFORM  SPACING 

I 
I 
I 

18 

I 

SF  =  DlSTl 

I 

44 

I 

1 

DETERMINE  THE 

AMOUNT  OF  TIME 

REQUIRED  TO  DO  WORK 

AT 

FIRST  SITE 

I 

I 
1 

19 

I       INDEX  =  1       I 

/    3120    / 

*  4 
4  4 

I 
.  16 >I 

I   N3TE 

CONTINUE 

I 

20 

* 
4 
» 

I 
*«   SUBTRACT  WORKTIME 
FROM  AVAILABLE  WORK 
TIME 

I 

I 
I 

21 

1 

AVAIL  =  AVAIL  - 
TIME 

I 
I 

1 

I 

I 
«»   ACCUMULATE  THE 
PRODUCTIVE  WORK  TIME 
ON  THE  ROAD 

1 

I 
I 

22 

I 

TTIME  =  TTIM6  * 
TIME 

I 

I 

I 
I 

r 

**   HOLD  THE  LOCATION 
OF  THE  WORK  SITE 
WHICH  HAS  JUST  BEEN 
COMPLETED 

I 

I 
I 

23 

I    DIST3  =  DISTl    I 

4*  TES 
IF  AVA! 
TIME  IS 


I 
I 
I 

T  TO  D 
LASLE 
EXCEE 

I 

I 

I 


ETERMINE 

WORK 

OEO 


59 
17 
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»<■       INCREMENT    THE 

WQRKLOAO 

ARRAr 

67.24*— 

>* 

3110 

I 

01 

I             IW    = 

IW    t     1 

I 

I 
I 

I 
**       IF    THE    SIMULATION 

I S    COMPLETE    TOTAL 

CREx    HRS. 

AND    HOLD 

OCCUPANCY 

H 
I 
1 
I 
»          02 

* 

* 

f 

* 

* 

* 

TRUE 

*     IW    .GT.     ISIM 

*-+ 

* 

* 

* 

* 

* 

« 

* 

•  ••  . 

IFALSE    . 
I 

I 
I 

69     . 
17     . 

3200 

I 

I 

«*   DETERMINE  THE 
LOCATION  OF  THE  NEXT 
WORKSITE  ON  THE  ROAD 
I 

I 
«**GOTO  APPROPRIATE 
SPACING  FACTOR 
I 
I 
I  03 


I          CCMPUTEU    00    TO       I 
I                   FOR       N                     I 

I        3101 
1        3102 

68.04  I 

68.05  I 

I 
I 
IF    OUTSIDE 

1 

THE    RANGE 

I 
***RANDCM 
LOCATION 

SPACING 

68.03 >I 

3101          1 

ft 

04 

Ol 

I  ,  D1$T2  =  I 
I  OeNSEW»RLOC(IW)  I 
I        'SFACT         I 


♦♦♦UNIFORM    SPACINGi 
iJASEO    ON    JOINT 
SPACING    OR    SPECIFIED 
SPACING    FACTO 

♦♦«SF  IS  ACCUMULATED 
DISTANCE  FOR  UNIFORM 
SPACING  IN  MILES 

68.03 >* 

3102    I  05 

« « 

I  SF  =  SF  4.  I 
I  0VER(2, IA)/5230  I 
ft ft 

I 
I 

I 
♦♦♦UNIFORM  SPACING 
LOCATION 


I 

>I 

3103  I  NOTE  07 
*ftftfti::ftft;;t*^* 
*      CONTINUE        * 

I 
I 
I 

»«   DETERMINE  IF  THE 
NEXT  WORK  SITE  IS 
WITHIN  THE  ALLOWED 
TRAFFIC  ZONE 

♦♦♦AND  IF  IT  IS  THEN 
DETERMINE  THE  TIME 
REJUIRED  TO  DO  WORK 


I 


«    ( DIST2    -       •       TRUE 

»       DlSTl)     .LT.       « 

"0VER(9,IAJ     * 


IFALSt 

I 

I 

1 

I 

I 

I 
♦*       COMPUTE    THE    TIME 
REQUIRED    TO    MOVE    AND 
INSTALL    NEW    TRAFFIC 
CONTROL 

I 

I 

I                        10 
ft ft 

I  TEMPI  =  {DIST2  -  i 
I  DISTD/TCMOVE  <■  I 
I  DVER(a,IA)  I 


I 

«*ftIF  THE  TRAVEL 
TIME  TO  THE  NEXT  SITE 
EXCEED  2  HRS.  GET  OFF 
ROAD 

I 

I 


♦♦♦THIS  ROUTINE 
DETERMINES  PRODUCTION 
TIME  AT  WORKSITES 


— 67.19^ — >« 

3100  I        NOTE       12 

ftftftftftftftftftftft 

»  CONTINUE  ♦ 

ftftftftftftftftftftft 

I 

I 

I 
♦♦♦BRANCH  ro  THE 
APPROPRIATE  WORKSITE 
TYPE 


I 

COMPUTED 

GO    TO       I 

I 

FOR       *■ 

I 

I 

3104 

68.14     1 

I 

3105 

69.10    I 

I 

3106 

69.11     I 

I 
I 

I 

IF  OUTSIDE  THE  RANGE 
I 

68.13 >l 

3104    I  14 

I        TEMP2  =        I 
I      PATCHF(IW)       I 


♦TEMPI    .GT.    ♦       T 
♦    lOVERISf I  A)     ♦    *- 
ft  21  * 


I  .    06 

I 

I  3U 

I 

I 

*♦   DETERMINE  TIME 
REQUIRED  TO  00  WORK 
AT  FIRST  SITE  IN  NEW 
T/C  ZONE 

I 

I 

I                        16 
ft ft 

I  INDEX    =    2  I 


/          3121          / 

I 
69.16 >I 

1 

17 

I          TIME    =    TIME     + 

I 

I                     TEMPI 

I 

I 
I 
1 
♦  ♦♦DETERMINE     IF 

REMAINING    AVAILABLE 

TIME    WILL    BE    EXCEEDED 
I 

I 

♦          18 

♦          ♦ 

♦                     * 

♦    (AVAIL    -       * 

TRUE 

♦    TIME)     .LT.    0. 

«-* 

ft                                ft 

I 

♦                     ♦ 

I 

ft          * 

I 

ft 

.  ... 

IFALSE     . 

69    . 

I 

05    . 

1 

.  ... 

I 
I 

3123 

1 
♦♦♦ACCUMULATE 

TRAFFIC    CuNTROL    ZONE 

DISTANCE 

1 

I 

I 

19 

1                ZL    =     ZL    * 

1 

I        (0IST3    -    DISTl) 

I 

I 

♦♦♦ACCUMULATE    THE 
NUMBER    OF    TRAFFIC 
CONTROL     ZONES 

I 

I 

I 


I 

I 

I 
♦♦♦INITIALIZE    FIRST 
WORKSITE    IN    TRAFFIC 
CONTROL    ZONE 

I 

I  21 

ft ft 

I  OISTl    =    DIST2  I 

ft ft 

I 
I 
I 
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•♦SCjMfUTE    THE    TIME 
KbUU|i<tD    TO    WALK    TU 
NEXT    W(>RHS|IE 


69.16 >• 

3122    1 

01 

I  TIM61  =  (UIST2 
I     UIST3)/WALK 

-   1 

I 

I 

I 

I 
**»IF  TrIE  TIME 
REJUIREO  TO  WALK  TO 
THE  NEXT  SITE  EXCEEDS 
o  MlNUTESt  0 

1 

I 

/    3105 

/ 

10 

68.13— >I 
I 

I       TEMP2  ^ 
1     PATCHPIIW) 

I 
1 

I 

I 

I 
I 

68.13 >I 

I 


T6MP2  =  LF 


FALSE  « 
*  TlMEl  .GT. 


I  TRUE 

I 

I 

I 

I 

I 

I 


I  TIM61    =  I 

I     TIMEl*WALK/TCMQVE    I 






I 
->I 

•  •♦COME 

UTE  TOTAL 

TIME 

TO 

00  NEXT  WORK 

SITE 

1 
I 
1         04 

1 
I 

TIME 

=  TIME  ♦    1 
TIMEl         I 

I 
I 

••♦COMPUTE 
PRODUCTION     TIME    AT    A 
WORKSITE 

I 

— ea-i-v*— >i 
I 

3107         *  12 


TRUE    *  • 

*    PS( JA, ITYPE, 

•    3)    .NE.    0    * 


I 
I 
I 

••♦DETERMINE     IF 
REMACNr-iG    AVAILABLE 
TIME    WILL    ttb    EXCEfcOED 

I 

i 

I 

•        05 


*     I  AVAIL    - 

TIME)     .Gt. 
«  0.0 


I 

I 
I 

I 
I 

••♦RESET     IW    TO 
REFLECT    THAT    NEXT 
SITE    •IAS    NUT    DONE 
I 
6!J.15^~>I 

3123         I  06 


I 


IW    =     IW 


I 


•  •   ADJUST  THE 
AVAILABLE  TIME  TO 
REFLECT  PERFORMANCE 
OF  WORK 

3111    I 

07 

I 

AVAIL  =  AVAIL  - 
TIME 

I 

I 
♦•   ADO  TO 
ACCUMULATED 
PRUUUCTION  TIME 

I 

1 

I 

08 

I 
*  — 

TTIME  =  TTIME  + 
TIME 

I 

1 
I 

-♦ 

I 

♦•   RESET  THE  LAST 
SITE  WHERE  WORK  WAS 
COMPLETE 

I 
I 

09 

1 

0IST3  =  0IST2 

I 

I 
I 
I 

... 

.68.01. 

IFALSE 

I 

I 

I 

I 

I 

I 


/  WRITE  TO 

DEV 

/ 

/       MO 

/ 

/   VIA  FORMAT 

/ 

/      3108 

/ 

/ 

FROM  THE  LIST 

/ 

I 
I 

I       N3TE       1* 

•  ••*♦♦*♦♦*♦ 

•  LIST    =     lA  • 

•  **♦•♦•«*•* 


>I 

3109  I  15 

* 1 

I                  TIME    =  I 

I     r  TEMP2»SIHI  IA,2I        I 
I                          +  I 

I     SIM( IA,3) l/PS( lA,     I 
I                ITYPE, 31  I 

* « 


I 

♦♦♦RETURN  TO 
APPROPRIATE  PLACE 
SIMULATION 

I 

I 

I 


I 


COMPUTED  GO  TO   I 
FOR   INDEX      I 


I  3120 
I  3121 
1       3122 


67.20  I 
68.17  I 
69.01    I 


I 
I 
I 

IF    OUTSIDE    THE    RANGE 
I 
67.2*^  — >I 

3200         I      NOTE       n 

♦  CONTINUE  * 

•  ♦♦♦♦♦♦♦♦♦« 

I 

I 

I 
♦♦♦ACCUMULATE 
TRAFFIC  CONTROL  ZONE 
DISTANCE 

I 

I 

I  IE 


I  ZL    =    ZL    + 

I     (  DIST3   -    DISTl) 
I  OVERdl.lA) 
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69.  18 >* 

I 

***ACCU»AULATE    THE 
NUMBER    OF    TRAFFIC 
C0NTR3L     ZONES 

1 
I 
I 

■•■- 
01          I 

E» 
FALS 

I          *- 
I          *- 

NO 
CEEO 

* 
E    » 
*          J 

* 
* 

—  >« 

I 
HOUR    MAY 
2t 

I 
I 

*          09 

*         # 

* 
.GT.    2', 

* 
ITRUE 

I 
I 
I 
I 
I 

I             NZ    =    NZ    +    1 

I           1 

I 

1 

I 
**       TOTAL    THE    CREW 
HOURS    UN    THE    ROAD 

I 

1 

I 

« 

I       STIME    =    TTIMb    *■ 
I                   FIXHRS 

0?          1 
-*         1 

I       I 
1       I 

10 

<            1 

03          I 

I 

J 

=    J 

-    24 

1 

•*       ACCUMULATE    THE 
CREW    HOURS    FOR    EAC^ 
ROADWAY    OCCUPANCY 

1 

I 
I 

*- 

1 

11 

I 
I 

4: 

I            CREWH(IC)    = 
1             CREWH(IC)     t 
I             STIME    +    TT 
« ._. 

HR  S 1  I A  >  J 
HRS( lA, J, 

ICI    = 
IC)    +    I 

I 

3201 

I 

I 
* 

12 

** 

1 

I 

I 

DETERMINE    LAST 

HOUR 

OF    ROAD 

OCCUPANCY 

I 

I 
I 

04 

I    Ml 

=    IM2    *    STIME 

I 

** 

1 

I 
DETERMINE    THE 

ACTUAL    TIME    SPENT     IN 

LAST 

OCCUPANCY    HOUR 

I 

1 
I 

OS 

I 

RTIME    =     IM2    * 

I 

I 

STIME    -    Ml 

I 

** 

I 

I 

DETERMINE    LAST 

EVEN 

FULL    OCCUPANCY 

HOUR 

1 

I 

06 

t 

Ml    =    Ml    -    1 

-« 

I 
I 
1 

«*  ASSIGN  EACH  HOUR 
UF  ROADWAY  OCCUPANCY 
TO  AN  ARRAY  FOR  EACH 
HOUR  OF 

I 

I   NOTE   07 

*    BEGIN  DO  LOOP    • 
«  3201  K  =  IM2.  Ml   * 

I 

I< 

I  08 


END  OF  00 
LOOP? 


lYES 

** 

GET    THE    LAST 

HOUR 

OF 

OCCUPANCY 

13 

I 

J    =    J    <•    1 

I 

*-- 

♦»   NO  HOUR  MAY 
EXCEED  24 


ITRUE 

1 

I 

I 

I 

I  15 

^ ^ 

I     J  =  J  -  24       I 

« « 

I 

I< 

»*   ASSIGN  THE 
REMAINING  OCCUPANCY 
TIME  TO  LAST 
OCCUPANCY  HOUR 

I 

I 


I  HRS(IA,J,IC)  =  I 
I  HR  SUA, J, ICI  +  I 
I         RTIME         I 


I 
I 

*«   INITIALIZE 
OCCUPANCY  VARIABLES 

I 

I 

I         18 


**   END  OF  ROAO 
CLOSURE  SIMULATION 


•'♦DETERMINE    THE 
AVERAGE    TRAFFIC    ZONE 
LENGTH    FOR    LANES 
CLOSED    AND    ACT 


66.02 >* 

3030          I 

19 

I 

ZONELI lA.IC)    = 

I 

I 

ZL/NZ 

1 

I 

I 

I 

**»FACTOR    CREW    AND 

OCCUPANCY    HOURS    FOR 

MULTIPLE    LANE 

CLOSURES 

I 

1 
I 

20 

I 

CREWHdCI    = 

I 

I 

CREWHIICI/LF 

I 

I       NOTE 

21 

* 

««***#*** 

* 

* 

BEGIN    DO   LOOP 

« 

« 

3029    IH    =     1,     24 

* 

« 

I 

* 

I 

22 

I          , 

HRSI  lA.IH.ICI    = 

I 

I          I 

HRSI  lA,  IH,ICt/LF 

' 

I 
I 
1 
3029         «         2  3 

*         * 

*                   « 

I          NO       «                                * 

♦          END    OF    03         » 

*          LOOP?          « 

1 
I 

I 
I 

♦♦♦END    OF    LANE 
CLOSURE    LOOP 
1 
66.16 >I 

3031  *         24 


END    OF    00  »-t 

LOOP?  ♦  I 


64 
24 


*    *    »    »    • 


***** 


NOTE       25 
***** 


***** 


I 


Til  ME    =    0 


I 
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70.25 >» 

I 

**«ASSIoN    JISTANCE 
BtTwtEN    DtTOUR    EXIST 
POINTS    TO    FREElVAY 

*»*INELUE«4CE    ZONE 
FOR    ALL    LANES    CLUSEU 
I 
I 
1 
*  01 


OVER (12, lA) 
.EU.    0         • 


I  ZONEL( lA, LANES)  =  I 
I  UETOURll)  1 
# ^ 

I 
>I 

I 
«4       DETER'IINE    THE 
TOTAL    MAINTENANCE 
COST    FOR    ACTIVITY    AND 
EACil    CLOSURE 

I 

I 

I 
•»   RATIO  THE  ANNUAL 
LANE  MILE  PROJECT 
WORKLUAO  TJ  THE 
SIMULATION  WORK 

I 

I         03 

« » 

I  W  =  I 

I  HWURK(IA)  I 
I  'PKOJLN/SWGRKI lA)  I 


»*»L)ETEP  MI  NE    CM.     THE 
MATERIAL    COSTS    FOR 
THE    OCCUPANCY 
WORKLJAO 

1 

I 
I 

04 

I                       CM    =                          I 
I                 HhORMIAI                  1 
1     »PRajLN«LANES«PS       1 
I           (1A,ITYPE,2)             I 

1 

1 

I 
»**INI  TI  ALUE    THE 
WORKLOAD    TO    ZERO    NOW 
THAT    WORK    HAS    BEEN 
COMPLETED 

1 

I 
*         * 

05 

* 

« 

* 

*        lu   .Eg. 

»    FALSE 
2          f 

I  06 

^ 4 

I    HWORK(IA)  =  0    I 

t » 

I 
>l 

I 

*»   GO  TU  THE 
APPROPRIATE 
EXPRESSWAY  TYPE 
ROUTINE 

I 

I 

I          07 
It « 

1  COMPUTED    GO    TO       I 

I  FOR       KP  I 


I  3040 
I  iOSl 
I        3060 


71.08  I 
71.13  I 
71.13    I 


I 

IF    OUTSIDE     THE    RANGE 

I 

I 

I 
»»       COMPUTE    COST    FOR 
THREE-FOUK    LANE 
DIVIDED    MAINTENANCE 
CLOSURES    FOR 

I 

71.07 >l 

3040    I  08 


1    COSTSI lA, 

1,1 

ID) 

I     (CREWH(2) 
1                        * 

*2*W*CUI 
CM 

1    COSTSI  lA, 

2,1 

ID) 

1     ICREWHII) 
I                        + 

«rt»2*CU) 
CM 

I 
I 
I                        09 

I    COSTSdA, 

3,1 

ID) 

1 

1    COSTSI lA, 

1,1 

ID) 

I 

NOTIMEIl) 

.EQ.  1 


I  COSTSI lA, 3, 1, ID)   I 

I     =  1000000000    I 


I 

I< — 

I     12 


**       COMPUTE    COST    FOR 
FOUR-SIX    LANE    DIV lOfD 
MAINTENANCE    CLOSURES 
FOR    YE 

71.07 >« 

3051          1                         13 
« « 

1  COSTS! I  A, 1,1, 10) 

I 

I  (CREWH(3)«3*M»CU) 

1  ♦    CM 

I 

I  COSTSI IA,2,1,I0) 

I     I (CREWH(2I»2*W    ♦ 
I    CREWHII1*W)»CU)     ♦ 
I  CM 

« 

I 
I 

I                        1 
* 

I    COSTSI IA,3, I, ID) 
I 

I     (CREWHI 1)*W*3»CU) 
I,  *    CM 

I    C0STSIIA,4,  1,10) 

I 

I     COSTSI IA,1, 1, ID) 


N0TIMEI2) 
.EO.     1 


I    C0STSIIA,4, 1,ID)        I 
I  =    1000000000  I 


I 
->I 

I     17 


*»       COMPUTE    COST    FDR 
FIVE-EIGHT    LANE 
DIVIDED    MAINTENANCE 
CLOSURES    FOR 

71,07 >» 

3060  I  18 

* « 

COSTSI lA,  1, 1, ID) 

ICREWHI41»4«W»CU) 

♦    CM 

COSTSI IA,2, 1, 10) 

I  (CREMH|3t*3*W    * 

CREWHI1)*W)«CU)     «■ 

CM 

* « 

I 
I 
I  19 


COSTSI 1A,3, 1, ID) 


ICREWHI2) 

*2»W*2*CU)    ♦    CM 


COSTSdA, 4,  1,  ID) 


ICREWHI 11«H»4»CUI 
♦    CM 


I 

1 

I                       20 

I    C0STSIIA,5,1,I0) 

I 

I    COSTSdA, 1,1, ID) 

I 
I 
I 

NOTIMEI 2) 
.EQ.     1 


I    COSTSdA, 5,  1. ID)        I 

I        =  1000000000      r 
« * 

I 

—  71.12»~>I 

3070         I       NOTE       23 

*  CONTINUE  ♦ 

I 
I 

I       NOTE       24 

*  BEGIN    DO    LOOP  * 
»         3072    IC    =    1,  * 

*  LANES  * 

I 
I 
I 
I       / 


/72.01 
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I 


tRUE  » 

*   NUTIMEdCI 

♦   .EQ.  0 


IC 


I  J  =  LANES 

I  1 

I 

I  COSTS! lA.J, 1, 10) 

I     =  lOOOOOOOOO 


END    OF    00 
LilOP? 


lYES 

I 

I 

1 

I 

I 

I 


FALSE  •  * 

*  NOTIMEILANES)  « 

«   .Ea.  1    ♦ 


I  COSTS! lA, LANES  ♦ 
I       1.1)10)= 

I      lOOOOOOOOO 


««  C 
SIMUL 
HOURS 
OCCUR 
**  F 
CLOSU 


I 
>I 

I 

ONVERT  THE 

AT  ION  OCCUPANCY 

TO  WORKLOAR 
ANCY  HOURS 
OR  EACH  LANE 
RE  FOR  THE  YEAR 

I 

I 

1   NOTE   06 


*  *  *  * 


«  «  « 


*  * 


»    BEGIN  00  LOOP    » 
»   3080  IH  =  1,  2*   • 

I 

I< 

I       NOTE       07 


EG  IN    on    LOOP 

081     IC    =     1, 

LANES 


I 
I 


*    »    »    • 


-72.07*  — >» 

I  08 

« « 

I       HRS(IAiIHtlC)     -        I 
I  HRSdA,  IH.IC)  I 

I  »W»IC  I 

« .-» 

I 
I 
I 
3081         •         09 

*         * 
»  * 

NO       *  » 

—  •  END    OF    00  • 

»  LOOP?  » 


YES 


3030         *         10 


NO       ♦ 

♦ *  END    OF    00 

•         LOOP? 


ires 


6*.02*— > 
iOlO 


*         END    OF    00         *-♦ 

♦         LOOP?         •         1 

*  *  I 


YES  .    5* 

.    02 
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*»»ACCIDENT 
EQU4TI0;\lS     INTE0C6PTS 
ANO    C JEFF [C lENTS 


I  01 

« 1, 

I  SCZUNt  =  l.J  I 
1  PWT  =  WEIGHTI 1,1)  1 
!       IKUtX  =  0       1 


I 
1 

.IJTJREST 
El , JETtKMI NATI UN 
THE    ilOTUREST 
ACT    PEKIOD 

I 

I 

I 
*DETEPMINt    THE 
LICABLE    LlAYS    FUi^ 
H    LAiME    CLQSUKE 
ATIOr^    bV 
'ACTIVITY    dV 
SURE    TYPE 

I 

I 

I       rNUTE       02 

SfcGlN    DC    LOOP  4 

5000    lA    =    1,     7  <■ 

********* 
I 

.  1.; — >i 
1 

*  03 


LEV 

UF 

I>IP 


APP 
EAC 
OUR 


OVER (b,I Al 


*       .EO.    0 

* 

1 

*                     * 

1 

*          * 

I 

* 

.  .  .  . 

IFALS 
1 

I 
I 
I 

b     . 

as   . 

12    . 

5000 

I 
«»*INIT1AL1ZE 

THE 

FACTOR    FOR    SIGNALS 

0^4 

OtTUUR 

I 
I 
I 

O'. 

* 



--* 

I                CYCLE    =    0 

I 

1 

I 
I 
»»*IiMlTlALIZE 

THE 

OtTOJR    TRAFFIC 

VOLUME 

FACTOR 

I 

1 

05 

I                OFACT    =     1 

I 

I 
1 

1       NOTE 

06 

«*«#«v«* 

* 

*     * 

«          6EGIAI    DO    LOOP 

« 

*          51JJ    IC    =    1 

, 

» 

♦                     LANES 

* 

*«»**«** 

<■ 

*     * 

86.21 >I 

«»*INITI ALIZE 

ACCIDENTS 

I 
I 

I  ACDTSI IC)    =    0  I 


I 
I 
***Ifa  TIAL  IZE  POLUTE 
I 
I 
I  09 

I        pnLUTE( IC)     =    0  I 

I 
I 
I 

»**INI TIALIZE  THE 
CROSS  OVER  FACTOR 
•CROSS- 

I 

I 

I  10 

I   caossiiC)  =  0   I 


I 
I 

♦♦•ACCUMULATE    THE 
TOTAL    HOURS    OF 
ROAOHAY    OCCUPANCY    FOR 
EACH    LAiME    CLOS 

I 

I 

I  t'^OTE  11 
*********** 
«  8EGIN  DO  LOOP  * 
»   5J80  IH  =  I,  2<.   * 


1 


I  CROSS! ICl     =  I 

I  CROSS(IC)     +  I 

I  HRS(1A,IH,IC)  I 


END    OF    DO 
LOOP? 


I  YES 

I 

I 

I 

I 

I 

I 
*t*lNl T lAL IZE  THE 
CAPACITY  TO  "CAP' 
PLUS  SHOULDERS  IF 
AVAILABLE 

I 

I 

I 


I't 


I  CAPACT    =  1 

I  CAP(IC)     +  i 

I  CAP(LANES)  1 

I  »0VER(12,IA)  I 


r 

I 
I 

««*IF  ALL  LANES  ARE 
CLOSED  A  DETOUR 
SITUTAION  CAN  EXIST 


*   0VER(12,IA)   »- 
*   .GT.  0    * 


I 
I 
I 
I 

♦♦♦COMPUTE  THE 
DETOUR  V0LU1E  FACTOR 

I 

I 

I  18 

tf * 

I  DFACT  =  I 
1  (VOLUMEd)  +  I 
I  DETOUR!*))  I 
I      /VOLUME! 1)       I 


I 


I 

♦♦♦ESTABLISH  AVERAGE 
DETOUR  STOPS 

I 

I 

I  19 
* » 

I     CYCLE    =    DET0URI6)     I 


I 
I 

♦♦♦CAPACITY  OF 
DETOUR 

I 
I 
I 


CAPACT  = 
DET0URI5) 


♦♦♦DETERMINE 
CAPACITY  OF  SHOULDERS 
FOR  ALL  LANES  CLOSED 

>♦ 

5090    I          21 
* « 

I  CAPACT  =  I 
I  CAPILANES)  I 
I    *0VERI12,IA)      I 

* « 

I 
I 
I 

♦♦♦INITIAL IZE 
STARTING  HOUR 

I 
-75.16«-->I 

5201    I  22 


IBEGIN  =  1 


I 


I 

r6.ii^— >i 

5001    I   NOTE   23 

♦  ♦**♦****♦♦ 

♦  CONTINUE       * 

♦  ♦*♦♦♦♦♦*♦« 
I 

I 

♦♦♦DETERMINE  THE 
FIRST  HOUR  OF  TRAFFIC 
IMPACT 

I 

I 

I   NOTE   2* 
*♦♦♦♦*«♦♦•* 

♦  BEGIN  DO  LOOP    * 

♦  5500  IH  =  IBEGIN,  « 

♦  2*  * 
**♦**♦*♦♦♦« 


♦ 

♦ 

TRUE 

HRSIIA 

IH 

ICl 

♦  -  + 

* 

.NE 

♦ 
♦ 

.    0 

♦ 
fe 

♦ 

I 
I 
1 

FALSE    . 

75    . 

01    . 

END  OF  DO 
LOOP? 


I  YES 
I 
I 
I 
I 
1 
t 
♦♦♦GET  ANOTHER 
CLOSURE 

I 
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7b. 0', >I 

I 


»*«SET     INITIAL 
IMPACT    HOUR 


75.25 >* 

5501         I 


I              lOEGIN    = 

IH             I 

I 
I 

I 
***QETERMINE 
DURATION 

I 

IMPACT 

I 

I ,     NOTE       02 

*         3EGIN    00    L03P         * 
»    5510    IH   =    IBEGIN,    * 
»                      23                        » 
«*»»*»»»»«♦ 

76.09 >I 

I 

03 

I                   TEMPI 
I          HRSdA.IH 

,IC)           I 

I                   TEMP2 
I    HRS ( 1  A, IH    + 

li ICI     I 

I 
I 

I 

***DeTERMINE  IF 
THERE  IS  CHANGE  IN 
OCCUPANCY  UURATIO.M 

I 

I 

I 

*    0* 


TEMPI  .EO. 
>    TEMP2 


TRUE 


FALSE  .  76 
.  09 


***SET  THE  UAYS  OF 
IMPACT  EQUAL  TO  THE 
OIFFERENCE  IN 
OCCUPANCY  OURATI 

I 

I 

I  05 


* 

«          NO 

* 

END    OF    DO 

#-+ 

* 

LOOP? 

*                     * 

*          * 

* 

1 
I 

lYES 

.     76    . 
.    03    . 

«««SET    THE    BAYS 

OF 

IMPACT 

FOR    FINAL 
I 
I 

I 

HOUR 
10 

I  DAYS    =    TEMP2 


* 

TRUE 

EQ 

0 

* 

I 
I 

* 

I 

FALSE    . 

75 

. 

23 

. 

I       DAYS    =    TEMPI    - 
1                      TEMP2 

I 

I 

I 
1 
I 
*»»OCCUPANCy 

DURATION    MUST 

POSITIVE 

I 

BE 

I 

* 

*          * 

«       DAYS    .LT 

06 

* 
0 

FALSE 

I  07 

# t! 

I  DAYS    =     TEMPI  I 


>1 

I 
***SET    THE    LAST    HOUR 
OF    OCCUPANCY 
I 


-♦    * 

I       lENO  =  IH 


**»SET  THE  END  OF 
OCCUPANCY  AT  FINAL 
HOUR 

I 

I 

I 


I  END  =  24 


I 


I 
««*INITIALIZE  THE 
QUEUE  AND  THE  FIRST 
DELAY  TIME  TO  ZERO 

I 
>I 

5511    I  13 

« * 

I       QUEUE  =  0       I 
I  I 

I       TIMEl  =  0       I 
» 1 

I 

I 

I 
♦♦♦DETERMINE  THE 
CLOSURE  CATEGORY 
SUBSCRIPT 

I 

I 


I 
I 
I 

♦♦♦WHEN  ALL  LANES 
ARE  CLOSED  AND 
SHOULDERS  ARE 
AVAILABLE 

«»«USE  THE  SPEED 
CURVE  DETERMINED  FOR 
ONE  LANE  OPEN  TO 
MOTOREST 

I 

1 


FALSE  ♦   !C  .EQ.   ♦ 

*   LANES  .AND. 

♦OVERI 12, lA)* 
♦.GT.  0  * 


I  TRUE 
I 
I 
I 

I 

I         IT 

« 1 

1    J  =  LANES  -  1    I 

I 

>I 

I          18 
# # 

I       FACTl  =  1      I 

t * 

I 
I 

I 

♦♦♦DETERMINE  THE 
VOLUME, DELAY  AND 
SPEED  FOR  EACH  HOUR 
OF  IMPACT 

I 

I   N3TE   19 

♦  BEGIN  DO  LOOP    * 

♦  5520  IH  =  IBEGIN,  * 
«  lEND  * 
*********** 

I 

77.12 >I 

i 

♦♦♦DECREASE    THE 
OCCUPANCY    AR^AY    BY 
THE    DAYS    USED    DURING 
THE     IMPACT    PE 

1 
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T  TO  DETERMINE 
SHOULDERS  ARE 
LE 

I 

I 

I 


^tB ( 12,IA) 
.GT.  0    1 


♦♦♦NON  DETOUR 
SITUATION 


81. 06^ — >♦ 

6020    1   NOTE 


♦  ♦  ♦  ♦ 


I 

♦♦♦DETERMINE 
EQUIVALENT  NORMAL 
FREEWAY  VEHICLE  MILES 
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I                   .     1*    . 

1 

1                      15 

I                     6020 
I 

1     TEMPI    =     ! PR/PV    -       1 
I     D^AVOLI  IHI^ZONE       I 

I 
♦♦♦DETERMINE    DAYS    OF 
POLJTION    FOR    ObTOUR 
CONDITION 

I 
I 

I 

6030          I       NOTE       16 
#♦♦♦♦♦♦♦♦♦♦ 

♦  CONTINUE                  ♦ 

♦  ♦♦♦♦♦«♦♦♦♦ 

♦♦♦DETERMIME 
PERCENTAGE     SPLIT 
BETWEEN    FREEWAY    AND 
DETOUR    NORMAL 
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I 
,    I                        06 

* « 

I                   FACTl    =                  1 
I                HVQL( IN)                   I 
I          /(HVOLC  IH)     *■             1         " 
I                DVOLI  IH)  )                I 

I 

I 
♦♦♦DETERMINE    FREEWAY 
DETOUR    EQUIVALENT 
VEHICLE    MILES 

I 

I 
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FREEWAY    EQUIVALENT 
VEHICLE    MILES    FOR 
QUEUE 

I 

I 

I                        17 
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I 

I 

1 

♦♦♦TOTAL    THE    VEHICLE 

MILES 

I 

I 

I                        09 

>^ 4; 
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1              l)^AVOL(IH)              1 
1    ♦FACT  l^DETOUP ( 1)        I 

I                        18 

I       TEMPI    =    TEMPI    *       I 
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1 

I 

1 

I 
♦♦♦DETERMINE    EXTRA 
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BY    DETOUR 

I 

I 
♦♦♦ACCUMULATE 
VEHICLE    MILES    OF 
PQLUTION 

I 

I                        19 

I                        10 

4; ^ 
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1     1 PR/PV)»AVOL( IH)        I 
I     »FACTl*IDETDUR( 2)     1 
I             -    DETOUR!  D)           1 

I          POLUTE! IC)    =             I 
1          POLUTE! IC)     ♦             1 
1             TEHPl^OAYS               I 
« « 
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I 

I 

I 
I 

♦♦DETERMINE    FREEWAY 
EQUIVALENT    NORMAL 
DETOUR    VEHICLE    MILES 
1 
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♦  ♦ 

♦  ♦ 

♦  ♦         N 
♦          END    OF    DO          ♦-+ 

♦  LOOP?          ♦          I 

♦  ♦                1 

♦  ♦                     1 

I                        11 

lYES         .    77 
I                 .    24 

I    TEMP3    =     (PR/PD    -       I 
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I 

I 

♦♦♦TOTAL    THE    VEHICLE 

MILES 

I 

1                        13 

1       TEMPI    =    TEMPI    ♦       1 
1          TEMP2    <•    TEMP3          I 

4c 4c 

^                                                      I 
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DAYS    TO    I 
VEHICLES 
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*  I 
*  I 

*  I 

*  •  ••  • 

IFALSE    .    82     . 
I  .     15     . 
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I  POLUT 
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I  (PQ 
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/PV    -  I 
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«»»MAKE 
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IN    QUEUE 


*«*GET    T 
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I 
I 

ADJUSTMENT 
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EHICLE  LEFT 

I 
I 
I 

HE  NORMAL 
VEHICLES  ON 
AY 
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I 
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I 

♦«*COMPUTE    THE 
NORMAL    TIME    FOR 
PASSING    THRU    THE 
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I 
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I 

0* 
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I          ZONELIIA.ICI 
I             /SPEE0N(2<.1 

I 

I 

I 

I 

I 
«*«CQMPUTE    THE    PASS. 
CAR    OPERATING    COSTS 
FOR    PASSING    THRU    THE 
ZONE 

I 

I 

1                      05 

I                   TEMPI    = 
I     QUEUE«OCOSTS( I 
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I     PCTADTIZ'f.b.IO 
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I) 
L) 
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I 
I 

«**COMPUTE  THE  COM. 
VEHICLE  OPERATING 
COSTS  FOR  PASSING 
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I 

I 


—  >* 
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07 
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I    ♦PCTA0T(2'.,6,  10, 
I                     1)*C 
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1 
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I 

♦*«C0MB1NE    OPERATING 
COSTS,     COMPUTE     SPEED 
CHANGE    COSTS,    ANU 
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I 

1 

Od 

I    TEMPI    =    (TEMPI    t 

I                  TEMP2    <■ 

I       «UEUE*Ql)*DAYS 

I 

1 

I 

I 
I 
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»»»COMPUTE    THE 
AVERAGE     SPEED    OF    A 
VEHICLE    LEFT    IN    THE 
aUEUE 

I 

I 
I 

09 
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U)/2  *  .5 


I 
I 

»**COMPUTE  PASSENGER 
CAR  OPERATING  COSTS 
IN  THE  QUEUE 

I 

I 

I          10 
« « 

I  •     TEMP3  = 

I  QUEUE*0C0STS(K,1) 

I         *ll  - 

I  PCTADT(2',,6,ID,1) 

I  I 
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I 
I 
I 

*<=«COMPUTE  THE 
COMMERCIAL  VEHICLE 
OPERATING  COSTS  IN 
THE  QUEUE 

I 

I 
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I  QUE 
I  *PC 
I 


TEMP4  =  I 

UE*0C0STS(K,2)  1 

TADT(24,6, ID,  I 

1)  I 


I 
I 
I 

♦  •♦COMBINE 
COMMERCIALiPASSENGER 
CAR  QUEUE  COSTS  AND 
EXPAND  BY  DELAY  A 

I 

I 

I  12 


I  TEM 
I  TEM 
I 


P3  =  (  TEMP3  <•  I 
P4)*DELAY(24)  I 
♦DAYS  I 


I 
I 

I 

DJUST  OPERATING 
FOR  VEHICLES 
N  THE  QUEUE 

I 

I 


***A 
COSTS 
LEFT 


->* 
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1* 

— * 


I  COSTSl lA, IC,2, 10)  I 
I  =  I 

I  COSTSl IA,IC,2,I0)  T 
I  ♦  TEMPI  +  TEMP3  I 
« « 

I 

82.01 >I 

6040    I   NOTE   15 

*      CONTINUE       * 

I 

I 
I 

SUBROUTINE  TIME 

I 

♦•♦INITIALIZE  DETOUR 
PARAMETERS  TO  ZERO 
I 
I 
I  16 


I                FACT2 

= 

0                I 

I                TEMP2 

= 

0              I 

1             TIMELD 

= 

0               I 

I 
I 

I   NOTE   17 

•  BEGIN  DO  LOOP    • 

•  6100  IH  =  IBEGIN,  * 

•  lENO  * 

I 

84.07 >I 

I 

«**THE    WEIGHTED 
VALUE    OF    COMMERCIAL 
TIME    IS    TEMPI 

I 

I 

I  IS 


I  TEMPI    = 

I     COMVOT^PCTAOTIIH, 

I  6,10,1) 


I 
I 

♦•♦COMPUTE  AVERAGE 
SPEED  IN  SPEED  CHANGE 
ZONE 

I 

I 

I  19 

« « 

I  TEMP3  =  I 
I  .254SPEEDN( IH)  +  I 
I    .75^SPEEOIIH)     I 

* * 

I 
I 
I 

♦••COMPUTE  TIME  LOST 
IN  SPEED  CHANGE  ZONE 
I 
I 
I         20 

« 4 

I  TEMP3  =  I 
I  (SCZ0NE/TEMP3  -  I 
I  SCZONE/SPEEDNdH)  I 
I         }*Z  I 


I 
I 

♦♦♦IF  A  QUEUE  EXISTS 
COMPUTE  TIME  LOST  IN 
SPEED  CHANGES 
I 


DELAY 

.NE. 


IIH) 
0 


I  TRUE 
I 
I 
I 

I 
I 
I  23 

« * 

I  TEMP3    =  I 

I  1.67*SCZ0NE/  I 

I  SPEEDN(IH)  I 

« « 

1 

>I 

I 

•••BYPASS  THE 
COMPUTATION  OF  LOSS 
TIME  FOR  DETOUR 
UNLESS  ALL  LANES  AR 

•♦•AND  THE  SH3UL0ERS 
ARE  NOT  AVAILABLE  TO 
TRAFFIC 

I 

I 

I 

•    24 


♦ 
LANES 

♦ 
« 
• 

TRUE 
*-♦ 

I 
I 

FALSE    . 

as'. 
20   . 

♦  ♦   TRUE 
♦   0VER(12,IA)   •-* 

*  .GT.  0    ♦    I 
•         *       I 

♦  ♦  I 

♦  .... 

IFALSE    .    83    . 
1  .    20    . 

I  .... 

I  6110 

I 
I 

•••TIMEL     IS    THE    TIME 
LOST    BY    A    MOTORIST 
KHO    NORMALLY    TRAVELS 
THE    FREW 

••♦IS    FORCED    TO 
TRAVEL    THE    DETOUR 
ROUTE 

I 

I 

I  26 


TIMEL    - 

OET0UR(2) 

/SPEED! IH)    - 

DETOUR! 1) 

/SPEEON(IH)    * 

OELAY(IH)    +    TEMP3 


I 
I 
I 

♦••COMPUTE    AVERAGE 
SPEED    IN    SPEED    CHANGE 
ZONE 

I 

I 

I 

I       / 


/83.0I 
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62.27 >« 


1                   TE'<P4    =  I 

I     .25«5PLE0D( IH)     ♦       1 
1           ./5»SP£E0(1H)  I 

« « 

I 

I 
I 

«*«CO»(PUTE    TIME    LOST 
liM    SPEbU    CHANGE    ZONE 
I 
1 
I  02 


1  Tt.MP*    =  1 

1  ( SCZUME/TEMP4  -  I 
1  SCZi]NE/5PEED0(  IH)  1 
I  )*2  I 

V « 

I 
I 

I 
*«*IF    A    gilEUE    EXISTS 
CUMPJTE    TME    LQST     IN 
SPEEO    CHANGES 

I 

I 

I 

*    03 


DELAVl IHI 
.NE.  0 


ITRUE 
I 

I 

I 
I 
I 

0* 

I                   TEMP4    = 
I           1.670SCZONE/ 
I             SPEFDO(IH) 

1 

I 

1 
>I 

»**TMELD     IS    THE 
TIME     LOST     BY    A 
MOTJKIST    WHC    NORMALLY 
TRAVELS    THE    QfcT 

I 

I 
I 

05 

1                TIMELU    =                  1 
I                IJETGUR(2)                 I 
I          /SPEEDdH)     -             t 
I                DET0UR(2)                1 
I          /SPEfDD(IH)     +          I 
I    UELAYI IHI     t    TEMP*    I 

1 

I 

1 
*««FACT1     IS    THE 
RATIO    OF    THE    NORMAL 
FREEiVAY    VOLUME    TO    THE 
TOTAL    VCLU-1 
**«OcTQUK    ROUTE 

I 

I 

I                        06 

I                   FACTl    = 
I                HVOL(IH) 
I          /(HVOLI IHI    + 
I                OVOL(IHJ) 

I 

I 
I 
I 

I 
I 

»»*FACT2     IS    THE 
RATIO    OF    THE    NORMAL 
VOLUME    ON    THE    OETOUR 
ROUTE     TO    THE 
I 
I 

->* 


***VOLUME  ON  THE 
DETOUR  ROUTE 
I 
I 
I 


I 
I 
I 
I 

F4CT2    = 

DVOLI  IHI 

/(HVOLI IHI    + 

OVOLI IHI I 

I 

I 

I 

I 
I 
I 

***J    IS    THE    TI-MELOSS 
ON    THE    OETOUR    ROUTE 
IN    MINUTES    TO    THE 
NEAREST    MI 

I 

I 
I 

09 

I                        J    =                        I 
I    ABS(  T1MELOI«60    ••■       I 
I                        .5                           I 

*   *   «    * 


I        NOTE       15 
4    #    #    «    4t    * 


4     4t    «     4t    «    « 


I 

+ 

I 
I 

I 

12         I 

1                   J    =    40 

I          I 

«*»ACCUMULATE    THE 

WflGHTED    VALUES    OF 

TIME    LOSS    FDR    ALL 

TRIP    PURPOSES 

I 

I 
1 

13          I 

1           TEMP2    =    TEMPI 

I           I 

I 

I 

I       NOTE 

14                   I 

****##*»* 

#        *                    I 

*          BEGIN    DO    LOOP 

*                    I 

*       6101     IT    =    1,     5 

*                    I 

I 

*        *                    I 

I 


17 


I  TEMP2    =    TEMP2    -i-  I 

I  VTRATEdT.Jl  I 

I  »PCTAOT( IH, IT, 10.  I 

I  1)  I 


I 


ENU  OF  00 
LOOP? 


lYES 

I 

I 

I 

I 

♦♦♦COMPUTE    THE 

VALUE 

OF    TIME    LOST    TO 

DETOUR    ROUTE 

MOTORISTS 

I 

I 

I 

19 

I                   TEMP2    = 

I          TEMP2^TIMEL0 

I 

1 

♦♦♦COMPUTE  THE  TIME 
LOSS  ON  THE  FREEWAY 
FOR  A  NONOETOUR 
SITUATION 

82.2',^— >♦ 

6110    I  20 


TIMEL    = 
ZONELI  lA,  IC) 
/SPEED! IH)    - 
ZONELI lA.IC) 
/SPEEONdHI    ♦ 
DELAY! IHI 

TIMEL    =     TIMEL 
TEMP3 


I 

I 
I 

♦♦♦SET  THE  RATIO  OF 
THE  FREEWAY  NORMAL 
VOLUME  TO  THE  TOTAL 
VOLUME  EQU 

I 

I 

I         21 


FACTl 


1 


I 


I 
I 

♦♦♦I     IS    THE    TIME 
LOST    TO    A    FREEWAY 
MOTORIST    IN    MHUTES 
TO    THE    NEAREST 
I 
--83.16^  — >I 

6120  I       NOTE       22 

♦  *****♦♦♦#♦ 

♦  CONTINUE  * 
**«*♦♦♦♦♦♦♦ 

I 

I 

I  23 

« 4 

I  I     =  •  I 

I  ABS(TIMELI^50  ♦  I 
I  .5  I 


♦ 

TRUE 

.    0 

♦  -+ 

♦ 

I 

♦ 

I 

♦ 

1 

•  •  •  • 

FALSE    . 

84    . 

07    . 

♦    FALSE 
40  ♦-+ 


ITRUE 

I 

I 

I 

I 

I 

I 


84 
01 


26 

—  ♦ 
I 


I 
I 
I 
I       / 
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83.25* — >« 
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TIME  LOST 

I 
I 

I   NOTE   01 
*********** 

*  BEGIN  00  LOOP    * 
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*********** 
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--*    END  OF  DO    * 
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**«COMPUTE  THE  VALUE 
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^^^c^^^c^t**** 

I 

l< 

I  15 

« « 
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